/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ppc.apl

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4d 4f 4e 0d 0a 0d 0a 00 | 20 20 20 20 20 20 20 20 |MON.....|        |
|00000010| 20 20 20 20 20 20 20 20 | 41 50 50 4c 45 20 49 49 |        |APPLE II|
|00000020| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 4d |..      |       M|
|00000030| 4f 4e 49 54 4f 52 20 43 | 41 4c 4c 53 0d 0a 2d 2d |ONITOR C|ALLS..--|
|00000040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000060| 2d 2d 2d 2d 2d 0d 0a 20 | 0d 0a 20 20 20 20 20 20 |-----.. |..      |
|00000070| 20 20 20 20 20 20 20 20 | 4f 43 54 4f 42 45 52 20 |        |OCTOBER |
|00000080| 31 39 38 30 0d 0a 20 0d | 0a 20 0d 0a 54 48 45 52 |1980.. .|. ..THER|
|00000090| 45 20 41 52 45 20 4d 41 | 4e 59 20 52 4f 55 54 49 |E ARE MA|NY ROUTI|
|000000a0| 4e 45 53 20 49 4e 20 54 | 48 45 20 41 50 50 4c 45 |NES IN T|HE APPLE|
|000000b0| 20 49 49 0d 0a 4d 4f 4e | 49 54 4f 52 20 54 48 41 | II..MON|ITOR THA|
|000000c0| 54 20 43 41 4e 20 42 45 | 20 43 41 4c 4c 45 44 20 |T CAN BE| CALLED |
|000000d0| 46 52 4f 4d 20 57 49 54 | 48 49 4e 0d 0a 41 20 42 |FROM WIT|HIN..A B|
|000000e0| 41 53 49 43 20 50 52 4f | 47 52 41 4d 2e 20 20 54 |ASIC PRO|GRAM.  T|
|000000f0| 48 45 59 20 43 41 4e 20 | 42 45 20 55 53 45 44 20 |HEY CAN |BE USED |
|00000100| 54 4f 0d 0a 44 45 42 55 | 47 20 50 52 4f 47 52 41 |TO..DEBU|G PROGRA|
|00000110| 4d 53 20 4f 52 20 45 4e | 48 41 4e 43 45 20 59 4f |MS OR EN|HANCE YO|
|00000120| 55 52 20 50 52 4f 47 52 | 41 4d 0d 0a 44 45 56 45 |UR PROGR|AM..DEVE|
|00000130| 4c 4f 50 4d 45 4e 54 2e | 20 54 48 45 20 46 4f 4c |LOPMENT.| THE FOL|
|00000140| 4c 4f 57 49 4e 47 20 49 | 53 20 41 20 4c 49 53 54 |LOWING I|S A LIST|
|00000150| 0d 0a 28 41 4c 42 45 49 | 54 20 49 4e 43 4f 4d 50 |..(ALBEI|T INCOMP|
|00000160| 4c 45 54 45 29 20 4f 46 | 20 53 4f 4d 45 20 4f 46 |LETE) OF| SOME OF|
|00000170| 20 54 48 4f 53 45 0d 0a | 43 41 4c 4c 53 2e 2e 2e | THOSE..|CALLS...|
|00000180| 2e 2e 2e 0d 0a 20 0d 0a | 20 0d 0a 43 4c 45 41 52 |..... ..| ..CLEAR|
|00000190| 20 54 48 45 20 53 43 52 | 45 45 4e 20 2e 2e 2e 2e | THE SCR|EEN ....|
|000001a0| 2e 2e 2e 2e 2e 2e 2e 20 | 43 41 4c 4c 20 20 2d 39 |....... |CALL  -9|
|000001b0| 33 36 0d 0a 4c 49 4e 45 | 20 46 45 45 44 20 2e 2e |36..LINE| FEED ..|
|000001c0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000001d0| 20 43 41 4c 4c 20 20 2d | 39 32 32 0d 0a 53 43 52 | CALL  -|922..SCR|
|000001e0| 4f 4c 4c 20 53 43 52 45 | 45 4e 20 2e 2e 2e 2e 2e |OLL SCRE|EN .....|
|000001f0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 20 43 41 4c 4c 20 20 |........|. CALL  |
|00000200| 2d 39 31 32 0d 0a 4e 4f | 52 4d 41 4c 20 4d 4f 44 |-912..NO|RMAL MOD|
|00000210| 45 20 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |E ......|........|
|00000220| 2e 2e 20 43 41 4c 4c 20 | 20 2d 33 38 30 0d 0a 49 |.. CALL | -380..I|
|00000230| 4e 56 45 52 53 45 20 4d | 4f 44 45 20 2e 2e 2e 2e |NVERSE M|ODE ....|
|00000240| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 20 43 41 4c 4c |........|... CALL|
|00000250| 20 20 2d 33 38 34 0d 0a | 44 49 53 50 4c 41 59 20 |  -384..|DISPLAY |
|00000260| 52 45 47 49 53 54 45 52 | 53 20 2e 2e 2e 2e 2e 2e |REGISTER|S ......|
|00000270| 2e 2e 2e 2e 20 43 41 4c | 4c 20 20 2d 33 32 31 0d |.... CAL|L  -321.|
|00000280| 0a 20 20 41 3d 58 58 20 | 20 58 3d 58 58 20 20 59 |.  A=XX | X=XX  Y|
|00000290| 3d 58 58 20 20 50 3d 58 | 58 20 20 53 3d 58 58 0d |=XX  P=X|X  S=XX.|
|000002a0| 0a 45 4e 54 45 52 20 4d | 4f 4e 49 54 4f 52 20 2e |.ENTER M|ONITOR .|
|000002b0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 20 43 41 |........|..... CA|
|000002c0| 4c 4c 20 20 2d 31 35 35 | 0d 0a 45 4e 54 45 52 20 |LL  -155|..ENTER |
|000002d0| 4d 4f 4e 49 54 4f 52 20 | 57 49 54 48 20 44 4f 53 |MONITOR |WITH DOS|
|000002e0| 20 2e 2e 2e 2e 2e 20 43 | 41 4c 4c 20 20 2d 31 35 | ..... C|ALL  -15|
|000002f0| 31 0d 0a 52 49 4e 47 20 | 42 45 4c 4c 20 2e 2e 2e |1..RING |BELL ...|
|00000300| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 20 |........|....... |
|00000310| 43 41 4c 4c 20 20 2d 31 | 39 38 0d 0a 53 41 56 45 |CALL  -1|98..SAVE|
|00000320| 20 52 45 47 49 53 54 45 | 52 53 20 2e 2e 2e 2e 2e | REGISTE|RS .....|
|00000330| 2e 2e 2e 2e 2e 2e 2e 2e | 20 43 41 4c 4c 20 20 2d |........| CALL  -|
|00000340| 31 38 32 0d 0a 53 43 41 | 4e 20 49 4e 50 55 54 20 |182..SCA|N INPUT |
|00000350| 42 55 46 46 45 52 20 2e | 2e 2e 2e 2e 2e 2e 2e 2e |BUFFER .|........|
|00000360| 2e 20 43 41 4c 4c 20 20 | 2d 31 34 34 0d 0a 4c 49 |. CALL  |-144..LI|
|00000370| 53 54 20 49 4e 54 45 47 | 45 52 20 42 41 53 49 43 |ST INTEG|ER BASIC|
|00000380| 20 2e 2e 2e 2e 2e 2e 2e | 2e 2e 20 43 41 4c 4c 20 | .......|.. CALL |
|00000390| 2d 38 31 31 37 0d 0a 52 | 55 4e 20 49 4e 54 45 47 |-8117..R|UN INTEG|
|000003a0| 45 52 20 50 52 4f 47 52 | 41 4d 20 2e 2e 2e 2e 2e |ER PROGR|AM .....|
|000003b0| 2e 2e 2e 20 43 41 4c 4c | 20 2d 36 30 39 30 0d 0a |... CALL| -6090..|
|000003c0| 53 41 56 45 20 49 4e 54 | 45 47 45 52 20 28 54 41 |SAVE INT|EGER (TA|
|000003d0| 50 45 29 20 2e 2e 2e 2e | 2e 2e 2e 2e 20 43 41 4c |PE) ....|.... CAL|
|000003e0| 4c 20 2d 33 37 37 36 0d | 0a 4c 4f 41 44 20 49 4e |L -3776.|.LOAD IN|
|000003f0| 54 45 47 45 52 20 28 54 | 41 50 45 29 20 2e 2e 2e |TEGER (T|APE) ...|
|00000400| 2e 2e 2e 2e 2e 20 43 41 | 4c 4c 20 2d 33 39 37 33 |..... CA|LL -3973|
|00000410| 0d 0a 20 0d 0a 43 4c 45 | 41 52 20 47 52 41 50 48 |.. ..CLE|AR GRAPH|
|00000420| 20 53 43 52 45 45 4e 20 | 28 4c 4f 57 52 45 53 29 | SCREEN |(LOWRES)|
|00000430| 2e 20 43 41 4c 4c 20 2d | 31 39 39 38 0d 0a 43 48 |. CALL -|1998..CH|
|00000440| 41 4e 47 45 20 43 4f 4c | 4f 52 20 2d 3e 20 43 4f |ANGE COL|OR -> CO|
|00000450| 4c 4f 52 2b 33 20 2e 2e | 2e 2e 20 43 41 4c 4c 20 |LOR+3 ..|.. CALL |
|00000460| 2d 31 39 35 33 0d 0a 52 | 45 53 45 54 20 54 45 58 |-1953..R|ESET TEX|
|00000470| 54 20 4d 4f 44 45 20 2e | 2e 2e 2e 2e 2e 2e 2e 2e |T MODE .|........|
|00000480| 2e 2e 2e 20 43 41 4c 4c | 20 2d 31 32 33 33 0d 0a |... CALL| -1233..|
|00000490| 20 0d 0a 41 44 56 41 4e | 43 45 20 43 55 52 53 4f | ..ADVAN|CE CURSO|
|000004a0| 52 20 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 20 |R ......|....... |
|000004b0| 43 41 4c 4c 20 2d 31 30 | 33 36 0d 0a 42 41 43 4b |CALL -10|36..BACK|
|000004c0| 53 50 41 43 45 20 43 55 | 52 53 4f 52 20 2e 2e 2e |SPACE CU|RSOR ...|
|000004d0| 2e 2e 2e 2e 2e 2e 2e 2e | 20 43 41 4c 4c 20 2d 31 |........| CALL -1|
|000004e0| 30 30 38 0d 0a 43 55 52 | 53 4f 52 20 4d 4f 44 45 |008..CUR|SOR MODE|
|000004f0| 20 55 50 20 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e | UP ....|........|
|00000500| 2e 20 43 41 4c 4c 20 20 | 2d 39 39 38 0d 0a 43 55 |. CALL  |-998..CU|
|00000510| 52 53 4f 52 20 4d 4f 56 | 45 20 44 4f 57 4e 20 2e |RSOR MOV|E DOWN .|
|00000520| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 20 43 41 4c 4c 20 |........|.. CALL |
|00000530| 20 2d 39 32 32 0d 0a 20 | 0d 0a 43 4c 45 41 52 20 | -922.. |..CLEAR |
|00000540| 54 4f 20 45 4e 44 20 4f | 46 20 4c 49 4e 45 20 2e |TO END O|F LINE .|
|00000550| 2e 2e 2e 2e 2e 2e 20 43 | 41 4c 4c 20 20 2d 38 36 |...... C|ALL  -86|
|00000560| 38 0d 0a 43 4c 45 41 52 | 20 54 4f 20 45 4e 44 20 |8..CLEAR| TO END |
|00000570| 4f 46 20 53 43 52 45 45 | 4e 20 2e 2e 2e 2e 2e 20 |OF SCREE|N ..... |
|00000580| 43 41 4c 4c 20 20 2d 39 | 35 38 0d 0a 20 0d 0a 57 |CALL  -9|58.. ..W|
|00000590| 41 49 54 20 46 4f 52 20 | 4b 45 59 20 50 52 45 53 |AIT FOR |KEY PRES|
|000005a0| 53 20 2e 2e 2e 2e 2e 2e | 2e 2e 2e 20 43 41 4c 4c |S ......|... CALL|
|000005b0| 20 20 2d 37 35 36 0d 0a | 20 0d 0a 20 20 20 20 20 |  -756..| ..     |
|000005c0| 20 20 20 20 20 47 45 54 | 20 41 20 4c 49 4e 45 20 |     GET| A LINE |
|000005d0| 4f 46 20 49 4e 50 55 54 | 0d 0a 20 20 20 20 20 20 |OF INPUT|..      |
|000005e0| 20 20 20 20 20 20 20 54 | 48 52 45 45 20 52 4f 55 |       T|HREE ROU|
|000005f0| 54 49 4e 45 53 0d 0a 20 | 20 20 20 20 53 45 4c 45 |TINES.. |    SELE|
|00000600| 43 54 53 20 44 49 46 46 | 45 52 45 4e 54 20 4f 50 |CTS DIFF|ERENT OP|
|00000610| 54 49 4f 4e 53 20 46 4f | 52 0d 0a 20 20 20 20 4c |TIONS FO|R..    L|
|00000620| 49 4e 45 20 46 45 45 44 | 20 26 20 50 52 4f 4d 50 |INE FEED| & PROMP|
|00000630| 54 20 43 48 41 52 20 44 | 49 53 50 4c 41 59 0d 0a |T CHAR D|ISPLAY..|
|00000640| 20 0d 0a 4c 49 4e 45 20 | 46 45 45 44 2c 50 52 4f | ..LINE |FEED,PRO|
|00000650| 4d 50 54 2c 20 41 4e 44 | 20 57 41 49 54 2e 2e 20 |MPT, AND| WAIT.. |
|00000660| 43 41 4c 4c 20 20 2d 36 | 36 35 0d 0a 50 52 4f 4d |CALL  -6|65..PROM|
|00000670| 50 54 2c 4e 4f 20 4c 49 | 4e 45 20 46 45 45 44 20 |PT,NO LI|NE FEED |
|00000680| 26 20 57 41 49 54 2e 2e | 20 43 41 4c 4c 20 20 2d |& WAIT..| CALL  -|
|00000690| 36 36 32 0d 0a 4e 4f 20 | 50 52 4f 4d 50 54 20 4f |662..NO |PROMPT O|
|000006a0| 52 20 4c 49 4e 45 20 46 | 45 45 44 3b 20 57 41 49 |R LINE F|EED; WAI|
|000006b0| 54 20 43 41 4c 4c 20 20 | 2d 36 35 37 0d 0a 20 0d |T CALL  |-657.. .|
|000006c0| 0a 20 20 20 20 41 4c 4c | 20 4f 46 20 54 48 45 53 |.    ALL| OF THES|
|000006d0| 45 20 43 41 4c 4c 53 20 | 52 45 53 50 4f 4e 44 20 |E CALLS |RESPOND |
|000006e0| 54 4f 20 54 48 45 0d 0a | 20 20 20 20 45 53 43 20 |TO THE..|    ESC |
|000006f0| 53 45 51 55 45 4e 43 45 | 20 41 4e 44 20 52 54 20 |SEQUENCE| AND RT |
|00000700| 41 4e 44 20 4c 54 20 41 | 52 52 4f 57 53 2e 0d 0a |AND LT A|RROWS...|
|00000710| 20 20 20 20 49 4e 50 55 | 54 54 45 44 20 43 48 41 |    INPU|TTED CHA|
|00000720| 52 41 43 54 45 52 53 20 | 41 52 45 20 46 4f 55 4e |RACTERS |ARE FOUN|
|00000730| 44 20 49 4e 0d 0a 20 20 | 20 20 54 48 45 20 49 4e |D IN..  |  THE IN|
|00000740| 50 55 54 20 42 55 46 46 | 45 52 20 28 24 32 30 30 |PUT BUFF|ER ($200|
|00000750| 2d 24 32 46 46 20 48 45 | 58 0d 0a 20 20 20 20 4f |-$2FF HE|X..    O|
|00000760| 46 20 35 31 32 20 2d 20 | 37 36 37 20 44 45 43 49 |F 512 - |767 DECI|
|00000770| 4d 29 0d 0a 20 0d 0a 0d | 0a 0d 0a 43 6f 6d 6d 61 |M).. ...|...Comma|
|00000780| 6e 64 20 3f 50 50 26 43 | 0d 0a 0d 0a 46 6f 72 6d |nd ?PP&C|....Form|
|00000790| 61 74 20 66 6f 72 20 70 | 72 69 6e 74 65 72 20 28 |at for p|rinter (|
|000007a0| 79 2f 6e 29 20 3f 59 0d | 0a 0c 0d 0a 20 0d 0a 20 |y/n) ?Y.|.... .. |
|000007b0| 0d 0a 20 0d 0a 0d 0a 0d | 0a 43 6f 6d 6d 61 6e 64 |.. .....|.Command|
|000007c0| 20 3f 52 45 46 0d 0a 0d | 0a 00 0d 0a 20 20 20 20 | ?REF...|....    |
|000007d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007e0| 20 20 20 20 20 20 41 50 | 50 4c 45 20 49 49 20 54 |      AP|PLE II T|
|000007f0| 45 43 48 4e 49 43 41 4c | 20 0d 0a 20 20 20 20 20 |ECHNICAL| ..     |
|00000800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000810| 20 20 20 20 20 20 20 52 | 45 46 45 52 45 4e 43 45 |       R|EFERENCE|
|00000820| 20 43 41 52 44 20 0d 0a | 20 20 20 20 20 20 20 20 | CARD ..|        |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 3d 3d 3d 3d 3d |        |   =====|
|00000840| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000850| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 20 0d 0a 20 0d |========|=== .. .|
|00000860| 0a 20 0d 0a 20 43 61 72 | 64 20 4b 65 79 3a 20 0d |. .. Car|d Key: .|
|00000870| 0a 20 48 45 58 20 65 71 | 75 69 76 61 6c 65 6e 74 |. HEX eq|uivalent|
|00000880| 73 20 6f 66 20 64 65 63 | 69 6d 61 6c 20 61 64 64 |s of dec|imal add|
|00000890| 72 65 73 73 65 73 20 61 | 72 65 20 73 68 6f 77 6e |resses a|re shown|
|000008a0| 20 61 73 20 24 31 32 33 | 34 2e 20 0d 0a 20 57 68 | as $123|4. .. Wh|
|000008b0| 65 72 65 20 58 20 69 73 | 20 6c 69 73 74 65 64 20 |ere X is| listed |
|000008c0| 61 73 20 74 68 65 20 61 | 72 67 75 6d 65 6e 74 20 |as the a|rgument |
|000008d0| 6f 66 20 61 20 50 4f 4b | 45 2c 20 74 68 65 20 76 |of a POK|E, the v|
|000008e0| 61 6c 75 65 20 74 6f 20 | 62 65 20 65 6e 74 65 72 |alue to |be enter|
|000008f0| 65 64 20 0d 0a 20 69 73 | 20 27 64 6f 6e 27 74 20 |ed .. is| 'don't |
|00000900| 63 61 72 65 27 2e 20 0d | 0a 20 5e 20 6d 65 61 6e |care'. .|. ^ mean|
|00000910| 73 20 68 6f 6c 64 20 43 | 54 52 4c 20 6b 65 79 20 |s hold C|TRL key |
|00000920| 64 6f 77 6e 2e 20 0d 0a | 20 0d 0a 20 20 20 20 20 |down. ..| ..     |
|00000930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000940| 20 20 20 20 20 20 20 20 | 20 20 42 45 47 49 4e 4e |        |  BEGINN|
|00000950| 45 52 53 20 0d 0a 20 46 | 72 6f 6d 20 5d 20 20 20 |ERS .. F|rom ]   |
|00000960| 50 52 23 36 20 20 20 20 | 20 20 20 20 20 20 20 42 |PR#6    |       B|
|00000970| 6f 6f 74 20 44 69 73 6b | 20 28 73 6c 6f 74 20 36 |oot Disk| (slot 6|
|00000980| 29 20 0d 0a 20 46 72 6f | 6d 20 2a 20 20 20 36 5e |) .. Fro|m *   6^|
|00000990| 43 20 20 20 20 20 20 20 | 20 20 20 20 20 42 6f 6f |C       |     Boo|
|000009a0| 74 20 44 69 73 6b 20 28 | 73 6c 6f 74 20 36 29 20 |t Disk (|slot 6) |
|000009b0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 50 4f 4b 45 |..      |    POKE|
|000009c0| 20 33 33 2c 33 33 20 20 | 20 20 20 27 53 63 72 75 | 33,33  |   'Scru|
|000009d0| 6e 63 68 20 73 63 72 65 | 65 6e 20 6c 69 73 74 69 |nch scre|en listi|
|000009e0| 6e 67 20 66 6f 72 20 65 | 61 73 65 20 6f 66 20 65 |ng for e|ase of e|
|000009f0| 64 69 74 69 6e 67 2e 20 | 0d 0a 20 20 20 20 20 20 |diting. |..      |
|00000a00| 20 20 20 20 50 4f 4b 45 | 20 33 33 2c 34 30 20 20 |    POKE| 33,40  |
|00000a10| 20 20 20 52 65 74 75 72 | 6e 20 74 6f 20 75 6e 73 |   Retur|n to uns|
|00000a20| 63 72 75 6e 63 68 65 64 | 20 6c 69 73 74 69 6e 67 |crunched| listing|
|00000a30| 2e 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 3f 20 |. ..    |      ? |
|00000a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 69 6e 20 |        |     in |
|00000a50| 42 41 53 49 43 20 6d 65 | 61 6e 73 20 50 52 49 4e |BASIC me|ans PRIN|
|00000a60| 54 2e 20 0d 0a 20 24 39 | 36 30 30 20 20 20 20 33 |T. .. $9|600    3|
|00000a70| 38 34 30 30 20 20 20 20 | 20 20 20 20 20 20 53 74 |8400    |      St|
|00000a80| 61 72 74 20 6f 66 20 44 | 4f 53 20 69 6e 20 6d 65 |art of D|OS in me|
|00000a90| 6d 6f 72 79 2e 20 0d 0a | 20 24 46 46 35 39 20 20 |mory. ..| $FF59  |
|00000aa0| 20 20 43 41 4c 4c 20 2d | 31 36 37 20 20 20 20 20 |  CALL -|167     |
|00000ab0| 20 45 6e 74 65 72 20 6d | 6f 6e 69 6f 74 72 20 72 | Enter m|oniotr r|
|00000ac0| 65 73 65 74 2c 20 74 65 | 78 74 20 6d 6f 64 65 2c |eset, te|xt mode,|
|00000ad0| 20 22 43 4f 4c 44 20 53 | 54 41 52 54 22 2e 20 0d | "COLD S|TART". .|
|00000ae0| 0a 20 24 46 46 36 35 20 | 20 20 20 43 41 4c 4c 20 |. $FF65 |   CALL |
|00000af0| 2d 31 35 35 20 20 20 20 | 20 20 45 6e 74 65 72 20 |-155    |  Enter |
|00000b00| 6d 6f 6e 69 74 6f 72 2c | 20 72 69 6e 67 20 62 65 |monitor,| ring be|
|00000b10| 6c 6c 2c 20 22 57 41 52 | 4d 20 53 54 41 52 54 22 |ll, "WAR|M START"|
|00000b20| 2e 20 0d 0a 20 24 46 46 | 36 39 20 20 20 20 43 41 |. .. $FF|69    CA|
|00000b30| 4c 4c 20 2d 31 35 31 20 | 20 20 20 20 20 45 6e 74 |LL -151 |     Ent|
|00000b40| 65 72 20 6d 6f 6e 69 74 | 6f 72 2c 20 6e 6f 20 62 |er monit|or, no b|
|00000b50| 65 6c 6c 2e 20 0d 0a 20 | 0d 0a 20 20 20 20 20 20 |ell. .. |..      |
|00000b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b70| 20 20 20 20 20 20 20 20 | 20 20 53 43 52 4f 4c 4c |        |  SCROLL|
|00000b80| 49 4e 47 20 57 49 4e 44 | 4f 57 20 0d 0a 20 24 32 |ING WIND|OW .. $2|
|00000b90| 30 20 20 20 20 20 20 50 | 4f 4b 45 20 33 32 2c 4c |0      P|OKE 32,L|
|00000ba0| 20 20 20 20 20 20 53 65 | 74 73 20 4c 45 46 54 20 |      Se|ts LEFT |
|00000bb0| 73 69 64 65 20 20 6f 66 | 20 73 63 72 6f 6c 6c 69 |side  of| scrolli|
|00000bc0| 6e 67 20 77 69 6e 64 6f | 77 20 0d 0a 20 20 20 20 |ng windo|w ..    |
|00000bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000be0| 20 20 20 20 20 28 4c 3d | 30 20 54 4f 20 33 39 29 |     (L=|0 TO 39)|
|00000bf0| 20 0d 0a 20 24 32 31 20 | 20 20 20 20 20 50 4f 4b | .. $21 |     POK|
|00000c00| 45 20 33 33 2c 57 20 20 | 20 20 20 20 53 65 74 73 |E 33,W  |    Sets|
|00000c10| 20 57 49 44 54 48 20 6f | 66 20 73 63 72 6f 6c 6c | WIDTH o|f scroll|
|00000c20| 69 6e 67 20 77 69 6e 64 | 6f 77 20 28 57 3d 31 20 |ing wind|ow (W=1 |
|00000c30| 54 4f 20 34 30 2d 4c 29 | 20 0d 0a 20 24 32 32 20 |TO 40-L)| .. $22 |
|00000c40| 20 20 20 20 20 50 4f 4b | 45 20 33 34 2c 54 20 20 |     POK|E 34,T  |
|00000c50| 20 20 20 20 53 65 74 20 | 54 4f 50 20 6f 66 20 73 |    Set |TOP of s|
|00000c60| 63 72 6f 6c 6c 69 6e 67 | 20 77 69 6e 64 6f 77 20 |crolling| window |
|00000c70| 28 54 3d 30 20 54 4f 20 | 32 33 29 20 0d 0a 20 24 |(T=0 TO |23) .. $|
|00000c80| 32 33 20 20 20 20 20 20 | 50 4f 4b 45 20 33 35 2c |23      |POKE 35,|
|00000c90| 42 20 20 20 20 20 20 53 | 65 74 73 20 42 4f 54 54 |B      S|ets BOTT|
|00000ca0| 4f 4d 20 6f 66 20 73 63 | 72 6f 6c 6c 69 6e 67 20 |OM of sc|rolling |
|00000cb0| 77 69 6e 64 6f 77 20 0d | 0a 20 20 20 20 20 20 20 |window .|.       |
|00000cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000cd0| 20 20 28 42 3d 7b 54 7d | 2b 31 20 74 6f 20 32 34 |  (B={T}|+1 to 24|
|00000ce0| 29 2e 20 0d 0a 20 24 46 | 42 34 42 20 20 20 20 43 |). .. $F|B4B    C|
|00000cf0| 41 4c 4c 20 2d 31 32 30 | 35 20 20 20 20 20 4e 6f |ALL -120|5     No|
|00000d00| 72 6d 61 6c 20 57 69 6e | 64 6f 77 2e 20 0d 0a 20 |rmal Win|dow. .. |
|00000d10| 24 46 42 33 43 20 20 20 | 20 43 41 4c 4c 20 2d 31 |$FB3C   | CALL -1|
|00000d20| 32 32 30 20 20 20 20 20 | 4c 69 6e 65 20 32 34 20 |220     |Line 24 |
|00000d30| 6f 6e 6c 79 20 69 73 20 | 77 69 6e 64 6f 77 2e 20 |only is |window. |
|00000d40| 0d 0a 20 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |.. ..   |        |
|00000d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d60| 20 43 55 52 53 4f 52 20 | 50 4f 53 49 54 49 4f 4e | CURSOR |POSITION|
|00000d70| 20 0d 0a 20 24 32 34 20 | 20 20 20 20 20 50 4f 4b | .. $24 |     POK|
|00000d80| 45 20 33 36 2c 43 48 20 | 20 20 20 20 53 65 74 73 |E 36,CH |    Sets|
|00000d90| 20 48 4f 52 49 5a 4f 4e | 54 41 4c 20 63 75 72 73 | HORIZON|TAL curs|
|00000da0| 6f 72 20 70 6f 73 69 74 | 69 6f 6e 20 28 43 48 3d |or posit|ion (CH=|
|00000db0| 30 20 54 4f 20 33 39 29 | 20 0d 0a 20 24 32 35 20 |0 TO 39)| .. $25 |
|00000dc0| 20 20 20 20 20 50 4f 4b | 45 20 33 37 2c 43 56 20 |     POK|E 37,CV |
|00000dd0| 20 20 20 20 53 65 74 73 | 20 56 45 52 54 49 43 41 |    Sets| VERTICA|
|00000de0| 4c 20 63 75 72 73 6f 72 | 20 70 6f 73 69 74 69 6f |L cursor| positio|
|00000df0| 6e 20 28 43 56 3d 30 20 | 54 4f 20 32 33 29 20 0d |n (CV=0 |TO 23) .|
|00000e00| 0a 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |. ..    |        |
|00000e10| 20 20 20 20 20 20 20 20 | 20 20 20 50 52 49 4e 54 |        |   PRINT|
|00000e20| 45 52 20 52 45 4c 41 54 | 45 44 20 43 4f 4d 4d 41 |ER RELAT|ED COMMA|
|00000e30| 4e 44 53 20 0d 0a 20 31 | 63 74 72 6c 2d 50 20 20 |NDS .. 1|ctrl-P  |
|00000e40| 50 52 23 31 20 20 20 20 | 20 20 20 20 20 20 20 41 |PR#1    |       A|
|00000e50| 63 74 69 76 61 74 65 20 | 70 72 69 6e 74 65 72 2c |ctivate |printer,|
|00000e60| 20 69 66 20 64 72 69 76 | 65 72 20 63 61 72 64 20 | if driv|er card |
|00000e70| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00000e80| 20 20 20 20 20 20 20 20 | 20 20 20 69 6e 20 73 6c |        |   in sl|
|00000e90| 6f 74 20 31 2e 20 0d 0a | 20 24 32 34 3a 43 20 20 |ot 1. ..| $24:C  |
|00000ea0| 20 20 50 4f 4b 45 33 36 | 2c 43 20 20 20 20 20 20 |  POKE36|,C      |
|00000eb0| 20 54 61 62 20 70 72 69 | 6e 74 65 72 20 74 6f 20 | Tab pri|nter to |
|00000ec0| 63 6f 6c 75 6d 6e 20 43 | 2e 20 20 52 65 71 75 69 |column C|.  Requi|
|00000ed0| 72 65 64 20 6d 65 74 68 | 6f 64 20 0d 0a 20 20 20 |red meth|od ..   |
|00000ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ef0| 20 20 20 20 20 20 77 69 | 74 68 20 63 65 72 74 61 |      wi|th certa|
|00000f00| 69 6e 20 70 72 69 6e 74 | 65 72 73 2e 20 0d 0a 20 |in print|ers. .. |
|00000f10| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00000f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f30| 20 20 20 54 45 58 54 20 | 0d 0a 20 24 46 42 46 34 |   TEXT |.. $FBF4|
|00000f40| 20 20 20 20 43 41 4c 4c | 20 2d 31 30 33 36 20 20 |    CALL| -1036  |
|00000f50| 20 20 20 4d 6f 76 65 20 | 63 75 72 73 6f 72 20 72 |   Move |cursor r|
|00000f60| 69 67 68 74 2e 20 0d 0a | 20 24 46 43 31 30 20 20 |ight. ..| $FC10  |
|00000f70| 20 20 43 41 4c 4c 20 2d | 31 30 30 38 20 20 20 20 |  CALL -|1008    |
|00000f80| 20 4d 6f 76 65 20 63 75 | 72 73 6f 72 20 6c 65 66 | Move cu|rsor lef|
|00000f90| 74 2e 20 0d 0a 20 24 46 | 43 31 41 20 20 20 20 43 |t. .. $F|C1A    C|
|00000fa0| 41 4c 4c 20 2d 39 39 38 | 20 20 20 20 20 20 4d 6f |ALL -998|      Mo|
|00000fb0| 76 65 20 63 75 72 73 6f | 72 20 75 70 2e 20 0d 0a |ve curso|r up. ..|
|00000fc0| 20 24 46 43 32 32 20 20 | 20 20 43 41 4c 4c 20 2d | $FC22  |  CALL -|
|00000fd0| 39 39 30 20 20 20 20 20 | 20 50 65 72 66 6f 72 6d |990     | Perform|
|00000fe0| 20 61 20 76 65 72 74 69 | 63 61 6c 20 74 61 62 2e | a verti|cal tab.|
|00000ff0| 20 0d 0a 20 24 46 43 34 | 32 20 20 20 20 43 41 4c | .. $FC4|2    CAL|
|00001000| 4c 20 2d 39 35 38 20 20 | 20 20 20 20 43 4c 45 41 |L -958  |    CLEA|
|00001010| 52 20 66 72 6f 6d 20 63 | 75 72 73 6f 72 20 74 6f |R from c|ursor to|
|00001020| 20 65 6e 64 20 6f 66 20 | 70 61 67 65 20 28 45 53 | end of |page (ES|
|00001030| 43 2d 46 29 20 0d 0a 20 | 24 46 43 35 38 20 20 20 |C-F) .. |$FC58   |
|00001040| 20 43 41 4c 4c 20 2d 39 | 33 36 20 20 20 20 20 20 | CALL -9|36      |
|00001050| 48 4f 4d 45 20 63 75 72 | 73 6f 72 20 61 6e 64 20 |HOME cur|sor and |
|00001060| 63 6c 65 61 72 20 73 63 | 72 65 65 6e 20 28 45 53 |clear sc|reen (ES|
|00001070| 43 2d 40 29 20 0d 0a 20 | 24 46 43 36 32 20 20 20 |C-@) .. |$FC62   |
|00001080| 20 43 41 4c 4c 20 2d 39 | 32 36 20 20 20 20 20 20 | CALL -9|26      |
|00001090| 50 65 72 66 6f 72 6d 20 | 61 20 63 61 72 72 69 61 |Perform |a carria|
|000010a0| 67 65 20 72 65 74 75 72 | 6e 2e 28 5e 4d 29 20 0d |ge retur|n.(^M) .|
|000010b0| 0a 20 24 46 43 36 36 20 | 20 20 20 43 41 4c 4c 20 |. $FC66 |   CALL |
|000010c0| 2d 39 32 32 20 20 20 20 | 20 20 50 65 72 66 6f 72 |-922    |  Perfor|
|000010d0| 6d 20 61 20 6c 69 6e 65 | 20 66 65 65 64 2e 28 5e |m a line| feed.(^|
|000010e0| 4a 29 20 0d 0a 20 24 46 | 43 37 30 20 20 20 20 43 |J) .. $F|C70    C|
|000010f0| 41 4c 4c 20 2d 39 31 32 | 20 20 20 20 20 20 53 63 |ALL -912|      Sc|
|00001100| 72 6f 6c 6c 20 75 70 20 | 31 20 6c 69 6e 65 2e 20 |roll up |1 line. |
|00001110| 0d 0a 20 24 46 43 39 43 | 20 20 20 20 43 41 4c 4c |.. $FC9C|    CALL|
|00001120| 20 2d 38 36 38 20 20 20 | 20 20 20 43 6c 65 61 72 | -868   |   Clear|
|00001130| 20 74 6f 20 65 6e 64 20 | 6f 66 20 6c 69 6e 65 28 | to end |of line(|
|00001140| 45 53 43 2d 45 29 2e 20 | 0d 0a 20 24 33 32 3a 46 |ESC-E). |.. $32:F|
|00001150| 46 20 20 20 50 4f 4b 45 | 20 35 30 2c 32 35 35 20 |F   POKE| 50,255 |
|00001160| 20 20 20 57 68 69 74 65 | 20 6f 6e 20 62 6c 61 63 |   White| on blac|
|00001170| 6b 20 28 6e 6f 72 6d 61 | 6c 20 64 69 73 70 6c 61 |k (norma|l displa|
|00001180| 79 29 20 0d 0a 20 24 33 | 32 3a 37 46 20 20 20 50 |y) .. $3|2:7F   P|
|00001190| 4f 4b 45 20 35 30 2c 31 | 32 37 20 20 20 20 46 4c |OKE 50,1|27    FL|
|000011a0| 41 53 48 2e 20 0d 0a 20 | 24 33 32 3a 33 46 20 20 |ASH. .. |$32:3F  |
|000011b0| 20 50 4f 4b 45 20 35 30 | 2c 36 33 20 20 20 20 20 | POKE 50|,63     |
|000011c0| 42 6c 61 63 6b 20 6f 6e | 20 77 68 69 74 65 20 28 |Black on| white (|
|000011d0| 69 6e 76 65 72 73 65 20 | 64 69 73 70 6c 61 79 29 |inverse |display)|
|000011e0| 2e 20 0d 0a 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |. .. .. |        |
|000011f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001200| 20 20 20 20 20 20 47 52 | 41 50 48 49 43 53 20 0d |      GR|APHICS .|
|00001210| 0a 20 24 32 30 30 30 20 | 20 20 20 38 31 39 32 20 |. $2000 |   8192 |
|00001220| 20 20 20 20 20 20 20 20 | 20 20 53 74 61 72 74 20 |        |  Start |
|00001230| 6f 66 20 50 61 67 65 20 | 31 20 68 69 2d 72 65 73 |of Page |1 hi-res|
|00001240| 20 61 72 65 61 2e 20 0d | 0a 20 24 34 30 30 30 20 | area. .|. $4000 |
|00001250| 20 20 20 31 36 33 38 34 | 20 20 20 20 20 20 20 20 |   16384|        |
|00001260| 20 20 53 74 61 72 74 20 | 6f 66 20 50 61 67 65 20 |  Start |of Page |
|00001270| 32 20 68 69 2d 72 65 73 | 20 61 72 65 61 2e 20 0d |2 hi-res| area. .|
|00001280| 0a 20 24 43 30 35 31 3a | 30 20 20 50 4f 4b 45 20 |. $C051:|0  POKE |
|00001290| 2d 31 36 33 30 33 2c 30 | 20 20 53 65 74 20 54 45 |-16303,0|  Set TE|
|000012a0| 58 54 20 6d 6f 64 65 20 | 77 2f 6f 20 72 65 73 65 |XT mode |w/o rese|
|000012b0| 74 69 6e 67 20 77 69 6e | 64 6f 77 20 0d 0a 20 24 |ting win|dow .. $|
|000012c0| 43 30 35 32 3a 30 20 20 | 50 4f 4b 45 20 2d 31 36 |C052:0  |POKE -16|
|000012d0| 33 30 32 2c 30 20 20 53 | 65 74 20 74 6f 20 66 75 |302,0  S|et to fu|
|000012e0| 6c 6c 20 73 63 72 65 65 | 6e 20 67 72 61 70 68 69 |ll scree|n graphi|
|000012f0| 63 73 20 0d 0a 20 24 43 | 30 35 33 3a 30 20 20 50 |cs .. $C|053:0  P|
|00001300| 4f 4b 45 20 2d 31 36 33 | 30 31 2c 30 20 20 53 65 |OKE -163|01,0  Se|
|00001310| 74 20 6d 69 78 65 64 20 | 67 72 61 70 68 69 63 73 |t mixed |graphics|
|00001320| 20 28 66 6f 75 72 20 6c | 69 6e 65 73 20 6f 66 20 | (four l|ines of |
|00001330| 74 65 78 74 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |text .. |        |
|00001340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001350| 61 74 20 62 6f 74 74 6f | 6d 20 6f 66 20 73 63 72 |at botto|m of scr|
|00001360| 65 65 6e 20 0d 0a 20 24 | 43 30 35 34 3a 30 20 20 |een .. $|C054:0  |
|00001370| 50 4f 4b 45 20 2d 31 36 | 33 30 30 2c 30 20 20 53 |POKE -16|300,0  S|
|00001380| 77 69 74 63 68 20 66 72 | 6f 6d 20 68 69 2d 72 65 |witch fr|om hi-re|
|00001390| 73 20 70 61 67 65 20 32 | 20 74 6f 20 50 41 47 45 |s page 2| to PAGE|
|000013a0| 20 31 20 0d 0a 20 24 43 | 30 35 35 3a 30 20 20 50 | 1 .. $C|055:0  P|
|000013b0| 4f 4b 45 20 2d 31 36 32 | 39 39 2c 30 20 20 53 77 |OKE -162|99,0  Sw|
|000013c0| 69 74 63 68 20 66 72 6f | 6d 20 68 69 2d 72 65 73 |itch fro|m hi-res|
|000013d0| 20 70 61 67 65 20 31 20 | 74 6f 20 70 61 67 65 20 | page 1 |to page |
|000013e0| 32 20 0d 0a 20 24 43 30 | 35 36 3a 30 20 20 50 4f |2 .. $C0|56:0  PO|
|000013f0| 4b 45 20 2d 31 36 32 39 | 38 2c 30 20 20 43 68 61 |KE -1629|8,0  Cha|
|00001400| 6e 67 65 20 66 72 6f 6d | 20 68 69 2d 72 65 73 20 |nge from| hi-res |
|00001410| 74 6f 20 6c 6f 2d 72 65 | 73 20 73 61 6d 65 20 70 |to lo-re|s same p|
|00001420| 61 67 65 20 0d 0a 20 24 | 43 30 35 37 3a 30 20 20 |age .. $|C057:0  |
|00001430| 50 4f 4b 45 20 2d 31 36 | 32 39 37 2c 30 20 20 43 |POKE -16|297,0  C|
|00001440| 68 61 6e 67 65 20 66 72 | 6f 6d 20 6c 6f 2d 72 65 |hange fr|om lo-re|
|00001450| 73 20 74 6f 20 68 69 2d | 72 65 73 20 73 61 6d 65 |s to hi-|res same|
|00001460| 20 70 61 67 65 2e 20 0d | 0a 20 24 46 38 33 32 20 | page. .|. $F832 |
|00001470| 20 20 20 43 41 4c 4c 20 | 2d 31 39 39 38 20 20 20 |   CALL |-1998   |
|00001480| 20 20 43 6c 65 61 72 73 | 20 65 6e 74 69 72 65 20 |  Clears| entire |
|00001490| 74 65 78 74 20 70 61 67 | 65 20 31 20 74 6f 20 72 |text pag|e 1 to r|
|000014a0| 65 76 65 72 73 65 64 20 | 0d 0a 20 20 20 20 20 20 |eversed |..      |
|000014b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000014c0| 20 20 20 40 20 73 69 67 | 6e 73 2e 20 20 49 66 20 |   @ sig|ns.  If |
|000014d0| 69 6e 20 70 61 67 65 20 | 31 20 6c 6f 77 2d 72 65 |in page |1 low-re|
|000014e0| 73 20 47 52 2c 20 74 68 | 69 73 20 0d 0a 20 20 20 |s GR, th|is ..   |
|000014f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001500| 20 20 20 20 20 20 63 6c | 65 61 72 73 20 74 68 65 |      cl|ears the|
|00001510| 20 65 6e 74 69 72 65 20 | 73 63 72 65 65 6e 20 74 | entire |screen t|
|00001520| 6f 20 62 6c 61 63 6b 2e | 20 0d 0a 20 24 46 38 33 |o black.| .. $F83|
|00001530| 36 20 20 20 20 43 41 4c | 4c 20 2d 31 39 39 34 20 |6    CAL|L -1994 |
|00001540| 20 20 20 20 43 6c 65 61 | 72 73 20 75 70 70 65 72 |    Clea|rs upper|
|00001550| 20 32 30 20 6c 69 6e 65 | 73 20 6f 66 20 70 61 67 | 20 line|s of pag|
|00001560| 65 20 31 20 74 6f 20 72 | 65 76 65 72 73 65 64 20 |e 1 to r|eversed |
|00001570| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00001580| 20 20 20 20 20 20 20 20 | 20 20 20 40 20 73 69 67 |        |   @ sig|
|00001590| 6e 73 2e 20 20 49 66 20 | 69 6e 20 6c 6f 77 2d 72 |ns.  If |in low-r|
|000015a0| 65 73 20 67 72 61 70 68 | 69 63 73 20 6d 6f 64 65 |es graph|ics mode|
|000015b0| 2c 20 74 68 69 73 20 0d | 0a 20 20 20 20 20 20 20 |, this .|.       |
|000015c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000015d0| 20 20 63 6c 65 61 72 73 | 20 74 68 65 20 75 70 70 |  clears| the upp|
|000015e0| 65 72 20 34 30 20 6c 69 | 6e 65 73 20 6f 66 20 67 |er 40 li|nes of g|
|000015f0| 72 61 70 68 69 63 73 20 | 73 63 72 65 65 6e 20 0d |raphics |screen .|
|00001600| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001610| 20 20 20 20 20 20 20 20 | 20 20 74 6f 20 62 6c 61 |        |  to bla|
|00001620| 63 6b 20 28 70 61 67 65 | 20 31 20 6f 6e 6c 79 29 |ck (page| 1 only)|
|00001630| 2e 20 0d 0a 20 24 46 42 | 33 39 20 20 20 20 43 41 |. .. $FB|39    CA|
|00001640| 4c 4c 20 2d 31 32 32 33 | 20 20 20 20 20 53 65 74 |LL -1223|     Set|
|00001650| 20 73 63 72 65 65 6e 20 | 74 6f 20 74 65 78 74 20 | screen |to text |
|00001660| 6d 6f 64 65 2e 20 0d 0a | 20 24 46 42 34 30 20 20 |mode. ..| $FB40  |
|00001670| 20 20 43 41 4c 4c 20 2d | 31 32 31 36 20 20 20 20 |  CALL -|1216    |
|00001680| 20 53 65 74 20 67 72 61 | 70 68 69 63 73 20 6d 6f | Set gra|phics mo|
|00001690| 64 65 20 28 47 52 29 2e | 20 0d 0a 20 24 46 33 46 |de (GR).| .. $F3F|
|000016a0| 32 20 20 20 20 43 41 4c | 4c 20 36 32 34 35 30 20 |2    CAL|L 62450 |
|000016b0| 20 20 20 20 43 6c 65 61 | 72 73 20 63 75 72 72 65 |    Clea|rs curre|
|000016c0| 6e 74 20 68 69 2d 72 65 | 73 20 73 63 72 65 65 6e |nt hi-re|s screen|
|000016d0| 20 74 6f 20 62 6c 61 63 | 6b 20 0d 0a 20 24 46 33 | to blac|k .. $F3|
|000016e0| 46 36 20 20 20 20 43 41 | 4c 4c 20 36 32 34 35 34 |F6    CA|LL 62454|
|000016f0| 20 20 20 20 20 43 6c 65 | 61 72 73 20 63 75 72 72 |     Cle|ars curr|
|00001700| 65 6e 74 20 68 69 2d 72 | 65 73 20 73 63 72 65 65 |ent hi-r|es scree|
|00001710| 6e 20 74 6f 20 68 63 6f | 6c 6f 72 20 0d 0a 20 20 |n to hco|lor ..  |
|00001720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001730| 20 20 20 20 20 20 20 6d | 6f 73 74 20 72 65 63 65 |       m|ost rece|
|00001740| 6e 74 6c 79 20 70 6c 6f | 74 74 65 64 2e 20 20 4d |ntly plo|tted.  M|
|00001750| 75 73 74 20 62 65 20 70 | 72 65 63 65 65 64 65 64 |ust be p|receeded|
|00001760| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..     |        |
|00001770| 20 20 20 20 20 20 20 20 | 20 20 20 20 62 79 20 61 |        |    by a|
|00001780| 20 48 50 4c 4f 54 2e 20 | 0d 0a 20 24 31 43 3a 4e | HPLOT. |.. $1C:N|
|00001790| 20 20 20 20 50 4f 4b 45 | 20 32 38 2c 4e 20 20 20 |    POKE| 28,N   |
|000017a0| 20 20 20 53 65 74 73 20 | 63 6f 6c 6f 72 20 66 6f |   Sets |color fo|
|000017b0| 72 20 43 41 4c 4c 20 36 | 32 34 35 34 2e 20 20 28 |r CALL 6|2454.  (|
|000017c0| 4c 6f 63 2e 20 32 38 20 | 69 73 20 0d 0a 20 20 20 |Loc. 28 |is ..   |
|000017d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000017e0| 20 20 20 20 20 20 27 72 | 75 6e 6e 69 6e 67 20 63 |      'r|unning c|
|000017f0| 6f 6c 6f 72 20 62 79 74 | 65 27 29 2e 20 0d 0a 20 |olor byt|e'). .. |
|00001800| 24 45 36 3a 4e 20 20 20 | 20 50 4f 4b 45 20 32 33 |$E6:N   | POKE 23|
|00001810| 30 2c 4e 20 20 20 20 20 | 54 65 6c 6c 73 20 41 70 |0,N     |Tells Ap|
|00001820| 70 6c 65 73 6f 66 74 20 | 69 6e 20 77 68 69 63 68 |plesoft |in which|
|00001830| 20 68 67 69 2d 72 65 73 | 20 70 61 67 65 20 74 6f | hgi-res| page to|
|00001840| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..     |        |
|00001850| 20 20 20 20 20 20 20 20 | 20 20 20 20 70 6c 6f 74 |        |    plot|
|00001860| 2e 20 4e 3d 33 32 20 66 | 6f 72 20 70 61 67 65 20 |. N=32 f|or page |
|00001870| 31 3b 20 36 34 20 66 6f | 72 20 70 61 67 65 20 32 |1; 64 fo|r page 2|
|00001880| 2e 20 0d 0a 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |. .. .. |        |
|00001890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000018a0| 20 20 20 20 48 49 2d 52 | 45 53 20 43 4f 4c 4f 52 |    HI-R|ES COLOR|
|000018b0| 53 20 0d 0a 20 20 20 20 | 30 3d 42 4c 41 43 4b 20 |S ..    |0=BLACK |
|000018c0| 31 20 28 30 29 20 20 20 | 20 20 20 20 31 3d 47 52 |1 (0)   |    1=GR|
|000018d0| 45 45 4e 20 20 20 28 38 | 35 29 20 20 20 20 20 20 |EEN   (8|5)      |
|000018e0| 32 3d 56 49 4f 4c 45 54 | 20 20 28 31 37 30 29 20 |2=VIOLET|  (170) |
|000018f0| 0d 0a 20 20 20 20 33 3d | 57 48 49 54 45 20 31 20 |..    3=|WHITE 1 |
|00001900| 28 32 35 35 29 20 20 20 | 20 20 34 3d 42 4c 41 43 |(255)   |  4=BLAC|
|00001910| 4b 20 32 20 20 20 20 20 | 20 20 20 20 20 20 35 3d |K 2     |      5=|
|00001920| 4f 52 41 4e 47 45 20 0d | 0a 20 20 20 20 36 3d 42 |ORANGE .|.    6=B|
|00001930| 4c 55 45 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |LUE     |        |
|00001940| 20 37 3d 57 48 49 54 45 | 20 32 20 0d 0a 20 0d 0a | 7=WHITE| 2 .. ..|
|00001950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001960| 20 20 20 20 20 20 20 20 | 20 20 20 20 4c 4f 57 2d |        |    LOW-|
|00001970| 52 45 53 20 43 4f 4c 4f | 52 53 20 0d 0a 20 20 20 |RES COLO|RS ..   |
|00001980| 20 30 3d 42 4c 41 43 4b | 20 20 20 20 20 20 20 20 | 0=BLACK|        |
|00001990| 20 20 20 20 20 20 31 3d | 4d 41 47 45 4e 54 41 20 |      1=|MAGENTA |
|000019a0| 20 20 20 20 20 20 20 20 | 20 32 3d 44 41 52 4b 20 |        | 2=DARK |
|000019b0| 42 4c 55 45 20 0d 0a 20 | 20 20 20 33 3d 4c 49 47 |BLUE .. |   3=LIG|
|000019c0| 48 54 20 50 55 52 50 4c | 45 20 20 20 20 20 20 20 |HT PURPL|E       |
|000019d0| 34 3d 44 41 52 4b 20 47 | 52 45 45 4e 20 20 20 20 |4=DARK G|REEN    |
|000019e0| 20 20 20 35 3d 47 52 41 | 59 20 0d 0a 20 20 20 20 |   5=GRA|Y ..    |
|000019f0| 36 3d 4d 45 44 49 55 4d | 20 42 4c 55 45 20 20 20 |6=MEDIUM| BLUE   |
|00001a00| 20 20 20 20 20 37 3d 4c | 49 47 48 54 20 42 4c 55 |     7=L|IGHT BLU|
|00001a10| 45 20 20 20 20 20 20 20 | 38 3d 42 52 4f 57 4e 20 |E       |8=BROWN |
|00001a20| 0d 0a 20 20 20 20 39 3d | 4f 52 41 4e 47 45 20 20 |..    9=|ORANGE  |
|00001a30| 20 20 20 20 20 20 20 20 | 20 20 20 31 30 3d 47 52 |        |   10=GR|
|00001a40| 41 59 20 20 20 20 20 20 | 20 20 20 20 20 20 31 31 |AY      |      11|
|00001a50| 3d 50 49 4e 4b 20 0d 0a | 20 20 20 20 31 32 3d 47 |=PINK ..|    12=G|
|00001a60| 52 45 45 4e 20 20 20 20 | 20 20 20 20 20 20 20 20 |REEN    |        |
|00001a70| 20 31 33 3d 59 45 4c 4c | 4f 57 20 20 20 20 20 20 | 13=YELL|OW      |
|00001a80| 20 20 20 20 31 34 3d 41 | 51 55 41 20 0d 0a 20 20 |    14=A|QUA ..  |
|00001a90| 20 20 31 35 3d 57 48 49 | 54 45 20 0d 0a 20 0d 0a |  15=WHI|TE .. ..|
|00001aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 4b 45 59 42 |        |    KEYB|
|00001ac0| 4f 41 52 44 2f 53 4f 55 | 4e 44 20 0d 0a 20 24 43 |OARD/SOU|ND .. $C|
|00001ad0| 30 30 30 20 20 20 20 58 | 3d 50 45 45 4b 20 28 2d |000    X|=PEEK (-|
|00001ae0| 31 36 33 38 34 29 20 52 | 45 41 44 20 6b 65 79 62 |16384) R|EAD keyb|
|00001af0| 6f 61 72 64 3b 20 69 66 | 20 58 3e 31 32 37 20 54 |oard; if| X>127 T|
|00001b00| 48 45 4e 20 6b 65 79 20 | 77 61 73 20 0d 0a 20 20 |HEN key |was ..  |
|00001b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001b20| 20 20 20 20 20 20 20 20 | 70 72 65 73 73 65 64 2e |        |pressed.|
|00001b30| 20 0d 0a 20 24 43 30 31 | 30 3a 58 20 20 50 4f 4b | .. $C01|0:X  POK|
|00001b40| 45 20 2d 31 36 33 36 38 | 2c 58 20 20 43 6c 65 61 |E -16368|,X  Clea|
|00001b50| 72 73 20 6b 65 79 62 6f | 61 72 64 20 73 74 72 6f |rs keybo|ard stro|
|00001b60| 62 65 2e 20 0d 0a 20 24 | 43 30 33 30 20 20 20 20 |be. .. $|C030    |
|00001b70| 58 3d 50 45 45 4b 28 2d | 31 36 33 33 36 29 20 54 |X=PEEK(-|16336) T|
|00001b80| 6f 67 67 6c 65 73 20 73 | 70 65 61 6b 65 72 20 28 |oggles s|peaker (|
|00001b90| 31 20 63 6c 69 63 6b 29 | 2e 20 0d 0a 20 24 43 30 |1 click)|. .. $C0|
|00001ba0| 32 30 20 20 20 20 58 3d | 50 45 45 4b 28 2d 31 36 |20    X=|PEEK(-16|
|00001bb0| 33 35 32 29 20 54 6f 67 | 67 6c 65 73 20 63 61 73 |352) Tog|gles cas|
|00001bc0| 73 65 74 74 65 20 6f 75 | 74 70 75 74 20 6f 6e 63 |sette ou|tput onc|
|00001bd0| 65 20 28 31 20 63 6c 69 | 63 6b 20 6f 6e 20 0d 0a |e (1 cli|ck on ..|
|00001be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001bf0| 20 20 20 20 20 20 20 20 | 20 63 61 73 73 65 74 74 |        | cassett|
|00001c00| 65 20 72 65 63 6f 72 64 | 69 6e 67 29 2e 20 0d 0a |e record|ing). ..|
|00001c10| 20 24 46 42 45 34 20 20 | 20 20 43 41 4c 4c 20 2d | $FBE4  |  CALL -|
|00001c20| 31 30 35 32 20 20 20 20 | 20 53 6f 75 6e 64 20 62 |1052    | Sound b|
|00001c30| 65 6c 6c 2e 20 0d 0a 20 | 0d 0a 20 20 20 20 20 20 |ell. .. |..      |
|00001c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001c50| 20 20 20 20 20 20 20 20 | 20 47 41 4d 45 20 50 4f |        | GAME PO|
|00001c60| 52 54 20 0d 0a 20 24 43 | 30 36 31 2b 4e 20 20 58 |RT .. $C|061+N  X|
|00001c70| 3d 50 45 45 4b 28 2d 31 | 36 32 38 37 2b 4e 29 20 |=PEEK(-1|6287+N) |
|00001c80| 52 65 61 64 20 50 44 4c | 28 4e 29 20 70 75 73 68 |Read PDL|(N) push|
|00001c90| 20 62 75 74 74 6f 6e 20 | 73 77 69 74 63 68 2e 20 | button |switch. |
|00001ca0| 49 66 20 58 3e 31 32 37 | 2c 20 0d 0a 20 20 20 20 |If X>127|, ..    |
|00001cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001cc0| 20 20 20 20 20 74 68 65 | 6e 20 73 77 69 74 63 68 |     the|n switch|
|00001cd0| 20 69 73 20 22 4f 4e 22 | 2e 30 3c 3d 4e 3c 3d 33 | is "ON"|.0<=N<=3|
|00001ce0| 20 0d 0a 20 24 43 30 35 | 38 2b 4e 3a 58 20 50 4f | .. $C05|8+N:X PO|
|00001cf0| 4b 45 20 2d 31 36 32 39 | 36 2b 4e 2c 58 20 43 6c |KE -1629|6+N,X Cl|
|00001d00| 65 61 72 20 67 61 6d 65 | 20 49 2f 4f 20 41 4e 30 |ear game| I/O AN0|
|00001d10| 28 4e 29 20 6f 75 74 70 | 75 74 20 28 6f 66 66 2d |(N) outp|ut (off-|
|00001d20| 33 2e 35 76 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |3.5v .. |        |
|00001d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d40| 68 69 67 68 29 2e 30 3c | 3d 4e 3c 3d 33 20 0d 0a |high).0<|=N<=3 ..|
|00001d50| 20 24 43 30 35 39 2b 4e | 3a 58 20 50 4f 4b 45 20 | $C059+N|:X POKE |
|00001d60| 2d 31 36 32 39 35 2b 4e | 2c 58 20 53 65 74 20 67 |-16295+N|,X Set g|
|00001d70| 61 6d 65 20 49 2f 4f 20 | 41 4e 30 28 4e 29 20 6f |ame I/O |AN0(N) o|
|00001d80| 75 74 70 75 74 20 28 6f | 6e 2d 2e 33 76 20 6c 6f |utput (o|n-.3v lo|
|00001d90| 77 29 2e 20 0d 0a 20 0d | 0a 20 20 20 20 20 20 20 |w). .. .|.       |
|00001da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001db0| 20 20 20 20 20 20 20 20 | 20 45 52 52 4f 52 53 20 |        | ERRORS |
|00001dc0| 0d 0a 20 24 44 41 2e 44 | 42 20 20 20 58 3d 50 45 |.. $DA.D|B   X=PE|
|00001dd0| 45 4b 28 32 31 38 29 20 | 2b 20 50 45 45 4b 28 32 |EK(218) |+ PEEK(2|
|00001de0| 31 39 29 20 2a 20 32 35 | 36 20 0d 0a 20 20 20 20 |19) * 25|6 ..    |
|00001df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e00| 20 20 20 20 20 58 20 65 | 71 75 61 6c 73 20 6c 69 |     X e|quals li|
|00001e10| 6e 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 74 68 65 |ne numbe|r of the|
|00001e20| 20 73 74 61 74 65 6d 65 | 6e 74 20 69 6e 20 0d 0a | stateme|nt in ..|
|00001e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e40| 20 20 20 20 20 20 20 20 | 20 65 72 72 6f 72 20 61 |        | error a|
|00001e50| 67 74 65 72 20 61 6e 20 | 4f 4e 45 52 52 47 4f 54 |gter an |ONERRGOT|
|00001e60| 4f 20 0d 0a 20 24 44 38 | 20 20 20 20 20 20 50 4f |O .. $D8|      PO|
|00001e70| 4b 45 20 32 31 36 2c 30 | 20 20 20 20 20 52 65 73 |KE 216,0|     Res|
|00001e80| 65 74 73 20 45 52 52 46 | 4c 47 3b 20 64 69 73 61 |ets ERRF|LG; disa|
|00001e90| 62 6c 65 20 4f 4e 45 52 | 52 2e 20 2e 20 2e 20 0d |ble ONER|R. . . .|
|00001ea0| 0a 20 24 44 38 20 20 20 | 20 20 20 58 3d 50 45 45 |. $D8   |   X=PEE|
|00001eb0| 4b 28 32 31 36 29 20 20 | 20 20 49 66 20 58 3d 31 |K(216)  |  If X=1|
|00001ec0| 32 37 20 3c 24 39 44 3e | 2c 20 65 72 72 6f 72 20 |27 <$9D>|, error |
|00001ed0| 64 65 74 65 63 74 65 64 | 2e 20 0d 0a 20 24 44 45 |detected|. .. $DE|
|00001ee0| 20 20 20 20 20 20 59 3d | 50 45 45 4b 28 32 32 32 |      Y=|PEEK(222|
|00001ef0| 29 20 20 20 20 59 20 69 | 73 20 65 72 72 6f 72 20 |)    Y i|s error |
|00001f00| 63 6f 64 65 20 72 65 74 | 75 72 6e 65 64 20 69 6e |code ret|urned in|
|00001f10| 20 64 65 63 69 6d 61 6c | 20 61 73 20 62 65 6c 6f | decimal| as belo|
|00001f20| 77 3a 20 0d 0a 20 20 20 | 20 20 20 20 20 56 41 4c |w: ..   |     VAL|
|00001f30| 55 45 20 20 20 20 45 52 | 52 4f 52 20 45 4e 43 4f |UE    ER|ROR ENCO|
|00001f40| 55 4e 54 45 52 45 44 20 | 0d 0a 20 20 20 20 20 20 |UNTERED |..      |
|00001f50| 20 20 20 20 20 20 30 20 | 20 20 20 20 20 4e 45 58 |      0 |     NEX|
|00001f60| 54 20 57 49 54 48 4f 55 | 54 20 46 4f 52 20 0d 0a |T WITHOU|T FOR ..|
|00001f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 31 20 20 20 |        |    1   |
|00001f80| 20 20 20 4c 41 4e 47 55 | 41 47 45 20 4e 4f 54 20 |   LANGU|AGE NOT |
|00001f90| 41 56 41 49 4c 41 42 4c | 45 20 0d 0a 20 20 20 20 |AVAILABL|E ..    |
|00001fa0| 20 20 20 20 20 20 20 20 | 32 20 20 20 20 20 20 52 |        |2      R|
|00001fb0| 41 4e 47 45 20 45 52 52 | 4f 52 20 0d 0a 20 20 20 |ANGE ERR|OR ..   |
|00001fc0| 20 20 20 20 20 20 20 20 | 20 34 20 20 20 20 20 20 |        | 4      |
|00001fd0| 44 49 53 4b 20 57 52 49 | 54 45 20 50 52 4f 54 45 |DISK WRI|TE PROTE|
|00001fe0| 43 54 45 44 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |CTED .. |        |
|00001ff0| 20 20 20 35 20 20 20 20 | 20 20 45 4e 44 20 4f 46 |   5    |  END OF|
|00002000| 20 44 41 54 41 20 4f 4e | 20 44 49 53 4b 20 0d 0a | DATA ON| DISK ..|
|00002010| 20 20 20 20 20 20 20 20 | 20 20 20 20 36 20 20 20 |        |    6   |
|00002020| 20 20 20 44 49 53 4b 20 | 46 49 4c 45 20 4e 4f 54 |   DISK |FILE NOT|
|00002030| 20 46 4f 55 4e 44 20 0d | 0a 20 20 20 20 20 20 20 | FOUND .|.       |
|00002040| 20 20 20 20 20 37 20 20 | 20 20 20 20 44 49 53 4b |     7  |    DISK|
|00002050| 20 56 4f 4c 55 4d 45 20 | 4d 49 53 4d 41 54 43 48 | VOLUME |MISMATCH|
|00002060| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 38 | ..     |       8|
|00002070| 20 20 20 20 20 20 44 49 | 53 4b 20 49 2f 4f 20 0d |      DI|SK I/O .|
|00002080| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 39 20 20 |.       |     9  |
|00002090| 20 20 20 20 44 49 53 4b | 20 46 55 4c 4c 20 0d 0a |    DISK| FULL ..|
|000020a0| 20 20 20 20 20 20 20 20 | 20 20 20 31 30 20 20 20 |        |   10   |
|000020b0| 20 20 20 44 49 53 4b 20 | 46 49 4c 45 20 4c 4f 43 |   DISK |FILE LOC|
|000020c0| 4b 45 44 20 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |KED ..  |        |
|000020d0| 20 31 31 20 20 20 20 20 | 20 44 49 53 4b 20 43 4f | 11     | DISK CO|
|000020e0| 4d 4d 41 4e 44 20 53 59 | 4e 54 41 58 20 0d 0a 20 |MMAND SY|NTAX .. |
|000020f0| 20 20 20 20 20 20 20 20 | 20 20 31 32 20 20 20 20 |        |  12    |
|00002100| 20 20 4e 4f 20 46 49 4c | 45 20 42 55 46 46 45 52 |  NO FIL|E BUFFER|
|00002110| 53 20 41 56 41 49 4c 41 | 42 4c 45 20 0d 0a 20 20 |S AVAILA|BLE ..  |
|00002120| 20 20 20 20 20 20 20 20 | 20 31 33 20 20 20 20 20 |        | 13     |
|00002130| 20 4e 4f 54 20 42 41 53 | 49 43 20 50 52 4f 47 52 | NOT BAS|IC PROGR|
|00002140| 41 4d 20 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |AM ..   |        |
|00002150| 31 34 20 20 20 20 20 20 | 50 52 4f 47 52 41 4d 20 |14      |PROGRAM |
|00002160| 54 4f 4f 20 4c 41 52 47 | 45 20 0d 0a 20 20 20 20 |TOO LARG|E ..    |
|00002170| 20 20 20 20 20 20 20 31 | 35 20 20 20 20 20 20 4e |       1|5      N|
|00002180| 4f 54 20 42 49 4e 41 52 | 59 20 46 49 4c 45 20 45 |OT BINAR|Y FILE E|
|00002190| 52 52 4f 52 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |RROR .. |        |
|000021a0| 20 20 31 36 20 20 20 20 | 20 20 53 59 4e 54 41 58 |  16    |  SYNTAX|
|000021b0| 20 45 52 52 4f 52 20 0d | 0a 20 20 20 20 20 20 20 | ERROR .|.       |
|000021c0| 20 20 20 20 32 32 20 20 | 20 20 20 20 52 45 54 55 |    22  |    RETU|
|000021d0| 52 4e 20 57 49 54 48 4f | 55 54 20 47 4f 53 55 42 |RN WITHO|UT GOSUB|
|000021e0| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 34 32 | ..     |      42|
|000021f0| 20 20 20 20 20 20 4f 55 | 54 20 4f 46 20 44 41 54 |      OU|T OF DAT|
|00002200| 41 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 35 |A ..    |       5|
|00002210| 33 20 20 20 20 20 20 49 | 4c 4c 45 47 41 4c 20 51 |3      I|LLEGAL Q|
|00002220| 55 41 4e 54 49 54 59 20 | 0d 0a 20 20 20 20 20 20 |UANTITY |..      |
|00002230| 20 20 20 20 20 36 39 20 | 20 20 20 20 20 4f 56 45 |     69 |     OVE|
|00002240| 52 46 4c 4f 57 20 0d 0a | 20 20 20 20 20 20 20 20 |RFLOW ..|        |
|00002250| 20 20 20 37 37 20 20 20 | 20 20 20 4f 55 54 20 4f |   77   |   OUT O|
|00002260| 46 20 4d 45 4d 4f 52 59 | 20 0d 0a 20 20 20 20 20 |F MEMORY| ..     |
|00002270| 20 20 20 20 20 20 39 30 | 20 20 20 20 20 20 55 4e |      90|      UN|
|00002280| 44 45 46 49 4e 45 44 20 | 53 54 41 54 45 4d 45 4e |DEFINED |STATEMEN|
|00002290| 54 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 31 30 |T ..    |      10|
|000022a0| 37 20 20 20 20 20 20 42 | 41 44 20 53 55 42 53 43 |7      B|AD SUBSC|
|000022b0| 52 49 50 54 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |RIPT .. |        |
|000022c0| 20 31 32 30 20 20 20 20 | 20 20 52 45 44 49 4d 45 | 120    |  REDIME|
|000022d0| 4e 53 49 4f 4e 45 44 20 | 41 52 52 41 59 20 0d 0a |NSIONED |ARRAY ..|
|000022e0| 20 20 20 20 20 20 20 20 | 20 20 31 33 33 20 20 20 |        |  133   |
|000022f0| 20 20 20 44 49 56 49 53 | 49 4f 4e 20 42 59 20 5a |   DIVIS|ION BY Z|
|00002300| 45 52 4f 20 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ERO ..  |        |
|00002310| 31 36 33 20 20 20 20 20 | 20 54 59 50 45 20 4d 49 |163     | TYPE MI|
|00002320| 53 4d 41 54 43 48 20 0d | 0a 20 20 20 20 20 20 20 |SMATCH .|.       |
|00002330| 20 20 20 31 37 36 20 20 | 20 20 20 20 53 54 52 49 |   176  |    STRI|
|00002340| 4e 47 20 54 4f 4f 20 4c | 4f 4e 47 20 0d 0a 20 20 |NG TOO L|ONG ..  |
|00002350| 20 20 20 20 20 20 20 20 | 31 39 31 20 20 20 20 20 |        |191     |
|00002360| 20 46 4f 52 4d 55 4c 41 | 20 54 4f 4f 20 43 4f 4d | FORMULA| TOO COM|
|00002370| 50 4c 45 58 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |PLEX .. |        |
|00002380| 20 32 32 34 20 20 20 20 | 20 20 55 4e 44 45 46 49 | 224    |  UNDEFI|
|00002390| 4e 45 44 20 46 55 4e 43 | 54 49 4f 4e 20 0d 0a 20 |NED FUNC|TION .. |
|000023a0| 20 20 20 20 20 20 20 20 | 20 32 35 34 20 20 20 20 |        | 254    |
|000023b0| 20 20 42 41 44 20 52 45 | 53 50 4f 4e 53 45 20 54 |  BAD RE|SPONSE T|
|000023c0| 4f 20 41 4e 20 49 4e 50 | 55 54 20 53 54 41 54 45 |O AN INP|UT STATE|
|000023d0| 4d 45 4e 54 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |MENT .. |        |
|000023e0| 20 32 35 35 20 20 20 20 | 20 20 43 54 52 4c 20 43 | 255    |  CTRL C|
|000023f0| 20 49 4e 54 45 52 52 55 | 50 54 20 41 54 54 45 4d | INTERRU|PT ATTEM|
|00002400| 50 54 45 44 20 0d 0a 20 | 0d 0a 20 20 20 20 20 20 |PTED .. |..      |
|00002410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002420| 20 20 20 20 44 4f 53 20 | 52 45 4c 41 54 45 44 20 |    DOS |RELATED |
|00002430| 54 48 49 4e 47 53 20 0d | 0a 20 24 33 44 30 20 20 |THINGS .|. $3D0  |
|00002440| 20 20 20 43 41 4c 4c 20 | 39 37 36 20 20 20 20 20 |   CALL |976     |
|00002450| 20 20 41 63 74 69 76 61 | 74 65 73 20 44 4f 53 20 |  Activa|tes DOS |
|00002460| 69 66 20 69 6e 20 6d 65 | 6d 6f 72 79 2e 20 0d 0a |if in me|mory. ..|
|00002470| 20 24 39 44 42 46 20 20 | 20 20 43 41 4c 4c 20 2d | $9DBF  |  CALL -|
|00002480| 32 35 31 35 33 20 20 20 | 20 41 6c 74 65 72 6e 61 |25153   | Alterna|
|00002490| 74 65 20 74 6f 20 24 33 | 44 30 30 47 2e 20 0d 0a |te to $3|D00G. ..|
|000024a0| 20 24 33 44 33 20 20 20 | 20 20 43 41 4c 4c 20 39 | $3D3   |  CALL 9|
|000024b0| 37 39 20 20 20 20 20 20 | 20 41 63 74 69 76 61 74 |79      | Activat|
|000024c0| 65 20 44 4f 53 3b 20 70 | 65 72 66 6f 72 6d 20 4e |e DOS; p|erform N|
|000024d0| 45 57 2e 20 0d 0a 20 24 | 39 44 38 34 20 20 20 20 |EW. .. $|9D84    |
|000024e0| 43 41 4c 4c 20 2d 32 35 | 32 31 32 20 20 20 20 41 |CALL -25|212    A|
|000024f0| 6c 74 65 72 6e 61 74 65 | 20 74 6f 20 24 33 44 33 |lternate| to $3D3|
|00002500| 2e 20 0d 0a 20 24 39 44 | 45 41 20 20 20 20 43 41 |. .. $9D|EA    CA|
|00002510| 4c 4c 20 2d 32 35 31 31 | 30 20 20 20 20 52 65 73 |LL -2511|0    Res|
|00002520| 74 6f 72 65 20 27 50 61 | 67 65 20 33 27 20 70 6f |tore 'Pa|ge 3' po|
|00002530| 69 6e 74 65 72 73 20 28 | 24 33 44 30 20 74 6f 20 |inters (|$3D0 to |
|00002540| 24 33 44 46 29 2e 20 0d | 0a 20 24 33 45 41 20 20 |$3DF). .|. $3EA  |
|00002550| 20 20 20 43 41 4c 4c 20 | 31 30 30 32 20 20 20 20 |   CALL |1002    |
|00002560| 20 20 52 65 63 6f 6e 6e | 65 63 74 20 44 4f 53 20 |  Reconn|ect DOS |
|00002570| 74 6f 20 49 2f 4f 20 76 | 65 63 74 6f 72 2e 20 55 |to I/O v|ector. U|
|00002580| 73 65 20 61 66 74 65 72 | 20 50 52 23 58 20 0d 0a |se after| PR#X ..|
|00002590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000025a0| 20 20 20 20 20 20 20 20 | 20 61 6e 64 20 49 4e 23 |        | and IN#|
|000025b0| 58 20 77 68 65 6e 20 74 | 68 6f 73 65 20 63 6f 6d |X when t|hose com|
|000025c0| 6d 61 6e 64 73 20 61 72 | 65 20 6e 6f 74 20 70 72 |mands ar|e not pr|
|000025d0| 65 63 65 64 65 64 20 0d | 0a 20 20 20 20 20 20 20 |eceded .|.       |
|000025e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000025f0| 20 20 62 79 20 61 20 43 | 48 52 24 28 34 29 2e 20 |  by a C|HR$(4). |
|00002600| 0d 0a 20 24 39 45 34 32 | 3a 33 34 20 50 4f 4b 45 |.. $9E42|:34 POKE|
|00002610| 20 34 30 35 31 34 2c 35 | 32 20 20 41 6c 6c 6f 77 | 40514,5|2  Allow|
|00002620| 73 20 42 69 6e 61 72 79 | 20 67 72 65 65 74 69 6e |s Binary| greetin|
|00002630| 67 20 70 72 6f 67 72 61 | 6d 2e 20 20 4d 55 53 54 |g progra|m.  MUST|
|00002640| 20 62 65 20 75 73 65 64 | 20 0d 0a 20 20 20 20 20 | be used| ..     |
|00002650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002660| 20 20 20 20 62 65 66 6f | 72 65 20 49 4e 49 54 2e |    befo|re INIT.|
|00002670| 20 0d 0a 20 24 39 45 34 | 32 3a 31 34 20 50 4f 4b | .. $9E4|2:14 POK|
|00002680| 45 20 34 30 35 31 34 2c | 32 30 20 20 41 6c 6c 6f |E 40514,|20  Allo|
|00002690| 77 73 20 54 65 78 74 20 | 67 72 65 65 74 69 6e 67 |ws Text |greeting|
|000026a0| 20 70 72 6f 67 72 61 6d | 2e 20 20 4d 55 53 54 20 | program|.  MUST |
|000026b0| 62 65 20 75 73 65 64 20 | 0d 0a 20 20 20 20 20 20 |be used |..      |
|000026c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000026d0| 20 20 20 62 65 66 6f 72 | 65 20 49 4e 49 54 2e 20 |   befor|e INIT. |
|000026e0| 0d 0a 20 24 41 35 36 45 | 20 20 20 20 43 41 4c 4c |.. $A56E|    CALL|
|000026f0| 20 34 32 33 35 30 20 20 | 20 20 20 50 72 69 6e 74 | 42350  |   Print|
|00002700| 20 61 20 63 61 74 61 6c | 6f 67 2e 20 0d 0a 20 24 | a catal|og. .. $|
|00002710| 41 41 36 32 3a 44 20 20 | 50 4f 4b 45 20 34 33 36 |AA62:D  |POKE 436|
|00002720| 39 38 2c 44 20 20 20 52 | 65 70 6c 61 63 65 20 44 |98,D   R|eplace D|
|00002730| 4f 53 20 63 74 72 6c 20 | 44 20 28 6d 75 73 74 20 |OS ctrl |D (must |
|00002740| 62 65 20 4e 65 67 61 74 | 69 76 65 20 0d 0a 20 20 |be Negat|ive ..  |
|00002750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002760| 20 20 20 20 20 20 20 41 | 53 43 49 49 20 3e 31 32 |       A|SCII >12|
|00002770| 37 29 2e 20 20 20 65 2e | 67 2e 20 50 4f 4b 45 20 |7).   e.|g. POKE |
|00002780| 34 33 36 39 38 2c 31 39 | 32 20 69 6e 73 65 72 74 |43698,19|2 insert|
|00002790| 73 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |s ..    |        |
|000027a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 74 68 65 |        |     the|
|000027b0| 20 27 40 27 2e 20 0d 0a | 20 24 41 43 30 31 3a 31 | '@'. ..| $AC01:1|
|000027c0| 30 20 50 4f 4b 45 20 2d | 32 31 35 30 33 2c 31 36 |0 POKE -|21503,16|
|000027d0| 20 50 72 65 76 65 6e 74 | 73 20 43 41 54 41 4c 4f | Prevent|s CATALO|
|000027e0| 47 20 63 6f 6d 6d 61 6e | 64 2e 20 20 28 24 31 31 |G comman|d.  ($11|
|000027f0| 20 20 31 37 20 72 65 73 | 74 6f 72 65 73 20 0d 0a |  17 res|tores ..|
|00002800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002810| 20 20 20 20 20 20 20 20 | 20 69 74 29 2e 20 0d 0a |        | it). ..|
|00002820| 20 24 42 33 43 31 20 20 | 20 20 50 45 45 4b 20 28 | $B3C1  |  PEEK (|
|00002830| 34 36 30 31 37 29 20 20 | 20 52 65 74 75 72 6e 73 |46017)  | Returns|
|00002840| 20 64 69 73 6b 20 76 6f | 6c 75 6d 65 20 6e 75 6d | disk vo|lume num|
|00002850| 62 65 72 2e 20 0d 0a 20 | 24 43 30 45 38 20 20 20 |ber. .. |$C0E8   |
|00002860| 20 43 41 4c 4c 20 2d 31 | 36 31 35 32 20 20 20 20 | CALL -1|6152    |
|00002870| 41 64 64 72 65 73 73 20 | 74 6f 20 70 6f 77 65 72 |Address |to power|
|00002880| 20 64 6f 77 6e 20 64 69 | 73 6b 20 69 6e 20 53 4c | down di|sk in SL|
|00002890| 4f 54 20 36 2e 20 0d 0a | 20 24 43 30 45 39 20 20 |OT 6. ..| $C0E9  |
|000028a0| 20 20 43 41 4c 4c 20 2d | 31 36 31 35 31 20 20 20 |  CALL -|16151   |
|000028b0| 20 41 64 64 72 65 73 73 | 20 74 6f 20 70 6f 77 65 | Address| to powe|
|000028c0| 72 20 75 70 20 64 69 73 | 6b 20 69 6e 20 53 4c 4f |r up dis|k in SLO|
|000028d0| 54 20 36 2e 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |T 6. .. |        |
|000028e0| 20 50 4f 4b 45 20 2d 32 | 31 39 32 31 2c 30 3a 20 | POKE -2|1921,0: |
|000028f0| 50 4f 4b 45 2d 31 38 34 | 34 38 2c 30 3a 20 50 4f |POKE-184|48,0: PO|
|00002900| 4b 45 2d 38 34 34 37 2c | 31 35 37 3a 20 0d 0a 20 |KE-8447,|157: .. |
|00002910| 20 20 20 20 20 20 20 20 | 20 50 4f 4b 45 2d 31 38 |        | POKE-18|
|00002920| 34 35 33 2c 30 3a 20 43 | 41 4c 4c 2d 31 38 36 31 |453,0: C|ALL-1861|
|00002930| 34 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |4 ..    |        |
|00002940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 57 72 69 |        |     Wri|
|00002950| 74 65 20 44 4f 53 20 63 | 75 72 72 65 6e 74 6c 79 |te DOS c|urrently|
|00002960| 20 69 6e 20 6d 65 6d 6f | 72 79 20 6f 75 74 20 74 | in memo|ry out t|
|00002970| 6f 20 64 69 73 6b 2e 20 | 0d 0a 20 20 20 20 20 20 |o disk. |..      |
|00002980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002990| 20 20 20 4d 75 73 74 20 | 72 65 4c 4f 41 44 20 48 |   Must |reLOAD H|
|000029a0| 45 4c 4c 4f 20 70 72 6f | 67 2e 20 66 69 72 73 74 |ELLO pro|g. first|
|000029b0| 20 74 6f 20 64 65 66 69 | 6e 65 20 0d 0a 20 20 20 | to defi|ne ..   |
|000029c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000029d0| 20 20 20 20 20 20 48 45 | 4c 4c 4f 20 6e 61 6d 65 |      HE|LLO name|
|000029e0| 2e 20 0d 0a 20 24 34 30 | 30 2e 37 46 46 20 20 20 |. .. $40|0.7FF   |
|000029f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 41 72 65 |        |     Are|
|00002a00| 61 20 6e 6f 74 20 6f 76 | 65 72 2d 77 72 69 74 74 |a not ov|er-writt|
|00002a10| 65 6e 20 64 75 72 69 6e | 67 20 0d 0a 20 24 41 30 |en durin|g .. $A0|
|00002a20| 30 2e 31 41 46 46 20 20 | 20 20 20 20 20 20 20 20 |0.1AFF  |        |
|00002a30| 20 20 20 20 20 42 4f 4f | 54 20 0d 0a 20 24 34 30 |     BOO|T .. $40|
|00002a40| 30 30 2e 39 35 46 46 20 | 0d 0a 20 0d 0a 20 20 20 |00.95FF |.. ..   |
|00002a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 41 50 50 4c |        |    APPL|
|00002a70| 45 53 4f 46 54 20 0d 0a | 20 24 36 37 2e 36 38 20 |ESOFT ..| $67.68 |
|00002a80| 20 20 50 45 45 4b 28 31 | 30 33 29 20 2b 20 50 45 |  PEEK(1|03) + PE|
|00002a90| 45 4b 28 31 30 34 29 20 | 2a 20 32 35 36 20 0d 0a |EK(104) |* 256 ..|
|00002aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002ab0| 20 20 20 20 20 20 20 20 | 20 53 74 61 72 74 20 6f |        | Start o|
|00002ac0| 66 20 41 70 70 6c 65 73 | 6f 66 74 20 70 72 6f 67 |f Apples|oft prog|
|00002ad0| 72 61 6d 2e 20 0d 0a 20 | 24 36 39 2e 36 41 20 20 |ram. .. |$69.6A  |
|00002ae0| 20 50 45 45 4b 28 31 30 | 35 29 20 2b 20 50 45 45 | PEEK(10|5) + PEE|
|00002af0| 4b 28 31 30 36 29 20 2a | 20 32 35 36 20 0d 0a 20 |K(106) *| 256 .. |
|00002b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002b10| 20 20 20 20 20 20 20 20 | 53 74 61 72 74 20 6f 66 |        |Start of|
|00002b20| 20 56 61 72 69 61 62 6c | 65 20 73 74 6f 72 61 67 | Variabl|e storag|
|00002b30| 65 2e 20 0d 0a 20 24 36 | 42 2e 36 43 20 20 20 50 |e. .. $6|B.6C   P|
|00002b40| 45 45 4b 28 31 30 37 29 | 20 2b 20 50 45 45 4b 28 |EEK(107)| + PEEK(|
|00002b50| 31 30 38 29 20 2a 20 32 | 35 36 20 0d 0a 20 20 20 |108) * 2|56 ..   |
|00002b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002b70| 20 20 20 20 20 20 53 74 | 61 72 74 20 6f 66 20 61 |      St|art of a|
|00002b80| 72 72 61 79 73 2e 20 0d | 0a 20 24 36 44 2e 36 45 |rrays. .|. $6D.6E|
|00002b90| 20 20 20 50 45 45 4b 28 | 31 30 39 29 20 2b 20 50 |   PEEK(|109) + P|
|00002ba0| 45 45 4b 28 31 31 30 29 | 20 2a 32 35 36 20 0d 0a |EEK(110)| *256 ..|
|00002bb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002bc0| 20 20 20 20 20 20 20 20 | 20 4c 61 73 74 20 6c 69 |        | Last li|
|00002bd0| 6e 65 20 65 78 65 63 75 | 74 65 64 2e 20 0d 0a 20 |ne execu|ted. .. |
|00002be0| 24 36 46 2e 37 30 20 20 | 20 50 45 45 4b 28 31 31 |$6F.70  | PEEK(11|
|00002bf0| 31 29 20 2b 20 50 45 45 | 4b 28 31 31 32 29 20 2a |1) + PEE|K(112) *|
|00002c00| 20 32 35 36 20 0d 0a 20 | 20 20 20 20 20 20 20 20 | 256 .. |        |
|00002c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002c20| 42 6f 74 74 6f 6d 20 6f | 66 20 53 74 72 69 6e 67 |Bottom o|f String|
|00002c30| 20 53 74 6f 72 61 67 65 | 20 61 72 65 61 2e 20 0d | Storage| area. .|
|00002c40| 0a 20 24 37 33 2e 37 34 | 20 20 20 50 45 45 4b 28 |. $73.74|   PEEK(|
|00002c50| 31 31 35 29 20 2b 20 50 | 45 45 4b 28 31 31 36 29 |115) + P|EEK(116)|
|00002c60| 20 2a 20 32 35 36 20 0d | 0a 20 20 20 20 20 20 20 | * 256 .|.       |
|00002c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002c80| 20 20 48 49 4d 45 4d 20 | 0d 0a 20 24 37 35 2e 37 |  HIMEM |.. $75.7|
|00002c90| 36 20 20 20 50 45 45 4b | 28 31 31 37 29 20 2b 20 |6   PEEK|(117) + |
|00002ca0| 50 45 45 4b 28 31 31 38 | 29 20 2a 20 32 35 36 20 |PEEK(118|) * 256 |
|00002cb0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00002cc0| 20 20 20 20 20 20 20 20 | 20 20 20 43 75 72 72 65 |        |   Curre|
|00002cd0| 6e 74 20 6c 69 6e 65 20 | 6e 75 6d 62 65 72 20 28 |nt line |number (|
|00002ce0| 53 65 65 20 61 6c 73 6f | 20 45 52 52 4f 52 53 29 |See also| ERRORS)|
|00002cf0| 2e 20 0d 0a 20 24 37 37 | 2e 37 38 20 20 20 50 45 |. .. $77|.78   PE|
|00002d00| 45 4b 28 31 31 39 29 20 | 2b 20 50 45 45 4b 28 31 |EK(119) |+ PEEK(1|
|00002d10| 32 30 29 20 2a 20 32 35 | 36 20 0d 0a 20 20 20 20 |20) * 25|6 ..    |
|00002d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002d30| 20 20 20 20 20 4c 61 73 | 74 20 41 70 70 6c 65 73 |     Las|t Apples|
|00002d40| 6f 66 74 20 6c 69 6e 65 | 20 6e 75 6d 62 65 72 20 |oft line| number |
|00002d50| 65 78 65 63 75 74 65 64 | 20 62 65 66 6f 72 65 20 |executed| before |
|00002d60| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00002d70| 20 20 20 20 20 20 20 20 | 20 20 20 53 54 4f 50 2c |        |   STOP,|
|00002d80| 20 45 4e 44 2c 20 6f 72 | 20 5e 43 2e 20 0d 0a 20 | END, or| ^C. .. |
|00002d90| 24 46 31 20 20 20 20 20 | 20 50 45 45 4b 28 32 34 |$F1     | PEEK(24|
|00002da0| 31 29 20 20 20 20 20 20 | 43 75 72 72 65 6e 74 20 |1)      |Current |
|00002db0| 53 70 65 65 64 2e 20 0d | 0a 20 24 44 35 36 36 20 |Speed. .|. $D566 |
|00002dc0| 20 20 20 43 41 4c 4c 20 | 35 34 36 33 30 20 20 20 |   CALL |54630   |
|00002dd0| 20 20 52 55 4e 20 41 70 | 70 6c 65 73 6f 66 74 20 |  RUN Ap|plesoft |
|00002de0| 70 72 6f 67 72 61 6d 2e | 20 0d 0a 20 24 44 38 39 |program.| .. $D89|
|00002df0| 38 20 20 20 20 43 41 4c | 4c 20 35 35 34 34 38 20 |8    CAL|L 55448 |
|00002e00| 20 20 20 20 43 4f 4e 54 | 20 41 70 70 6c 65 73 6f |    CONT| Appleso|
|00002e10| 66 74 20 70 72 6f 67 72 | 61 6d 2e 20 0d 0a 20 20 |ft progr|am. ..  |
|00002e20| 20 20 20 20 20 20 20 20 | 50 4f 4b 45 20 31 30 33 |        |POKE 103|
|00002e30| 2c 58 2b 31 2d 20 49 4e | 54 28 28 58 2b 31 29 20 |,X+1- IN|T((X+1) |
|00002e40| 2f 20 32 35 36 29 20 2a | 20 32 35 36 3a 20 0d 0a |/ 256) *| 256: ..|
|00002e50| 20 20 20 20 20 20 20 20 | 20 20 50 4f 4b 45 20 31 |        |  POKE 1|
|00002e60| 30 34 2c 28 58 2b 31 29 | 20 2f 20 32 35 36 3a 20 |04,(X+1)| / 256: |
|00002e70| 50 4f 4b 45 20 58 2c 30 | 20 0d 0a 20 20 20 20 20 |POKE X,0| ..     |
|00002e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002e90| 20 20 20 20 52 65 73 65 | 74 20 73 74 61 72 74 20 |    Rese|t start |
|00002ea0| 6f 66 20 41 70 70 6c 65 | 73 6f 66 74 20 70 72 6f |of Apple|soft pro|
|00002eb0| 67 72 61 6d 20 74 6f 20 | 61 64 64 72 65 73 73 20 |gram to |address |
|00002ec0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00002ed0| 20 20 20 20 20 20 20 20 | 20 20 20 58 2e 20 28 55 |        |   X. (U|
|00002ee0| 73 65 20 6f 6e 6c 79 20 | 62 65 66 6f 72 65 20 70 |se only |before p|
|00002ef0| 72 6f 67 72 61 6d 20 69 | 73 20 6c 6f 61 64 65 64 |rogram i|s loaded|
|00002f00| 2e 29 20 0d 0a 20 0d 0a | 20 20 20 20 20 20 20 20 |.) .. ..|        |
|00002f10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002f20| 20 20 20 20 20 55 53 45 | 46 55 4c 20 54 52 49 43 |     USE|FUL TRIC|
|00002f30| 4b 53 20 0d 0a 20 24 33 | 33 3a 30 20 20 20 20 50 |KS .. $3|3:0    P|
|00002f40| 4f 4b 45 20 35 31 2c 30 | 20 20 20 20 20 20 44 65 |OKE 51,0|      De|
|00002f50| 66 65 61 74 20 22 4e 4f | 54 20 44 49 52 45 43 54 |feat "NO|T DIRECT|
|00002f60| 20 43 4f 4d 4d 41 4e 44 | 22 20 65 72 72 6f 72 20 | COMMAND|" error |
|00002f70| 6d 65 73 73 61 67 65 20 | 69 6e 20 0d 0a 20 20 20 |message |in ..   |
|00002f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002f90| 20 20 20 20 20 20 41 70 | 70 6c 65 73 6f 66 74 2e |      Ap|plesoft.|
|00002fa0| 20 20 4d 75 73 74 20 62 | 65 20 66 6f 6c 6c 6f 77 |  Must b|e follow|
|00002fb0| 65 64 20 62 79 20 27 47 | 4f 54 4f 20 73 74 6d 74 |ed by 'G|OTO stmt|
|00002fc0| 27 2e 20 0d 0a 20 20 20 | 20 20 20 20 20 20 20 50 |'. ..   |       P|
|00002fd0| 4f 4b 45 20 35 34 2c 4c | 4f 3a 20 50 4f 4b 45 20 |OKE 54,L|O: POKE |
|00002fe0| 35 35 2c 48 49 3a 20 43 | 41 4c 4c 20 31 30 30 32 |55,HI: C|ALL 1002|
|00002ff0| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..     |        |
|00003000| 20 20 20 20 20 20 20 20 | 20 20 20 20 4c 69 6e 6b |        |    Link|
|00003010| 20 49 2f 4f 20 72 6f 75 | 74 69 6e 65 20 74 6f 20 | I/O rou|tine to |
|00003020| 6f 75 74 70 75 74 20 72 | 65 74 61 69 6e 69 6e 67 |output r|etaining|
|00003030| 20 44 4f 53 2e 20 0d 0a | 20 20 20 20 20 20 20 20 | DOS. ..|        |
|00003040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003050| 20 4c 4f 20 3d 20 58 20 | 2d 20 32 35 36 2a 49 4e | LO = X |- 256*IN|
|00003060| 54 28 58 2f 32 35 36 29 | 20 0d 0a 20 20 20 20 20 |T(X/256)| ..     |
|00003070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003080| 20 20 20 20 48 49 20 3d | 20 58 20 2f 20 32 35 36 |    HI =| X / 256|
|00003090| 20 0d 0a 20 24 33 38 2e | 33 39 20 20 20 20 50 4f | .. $38.|39    PO|
|000030a0| 4b 45 20 35 36 2c 4c 4f | 3a 20 50 4f 4b 45 20 35 |KE 56,LO|: POKE 5|
|000030b0| 37 2c 48 49 3a 20 43 41 | 4c 4c 20 31 30 30 32 20 |7,HI: CA|LL 1002 |
|000030c0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|000030d0| 20 20 20 20 20 20 20 20 | 20 20 20 4c 69 6e 6b 20 |        |   Link |
|000030e0| 49 2f 4f 20 72 6f 75 74 | 69 6e 65 20 74 6f 20 69 |I/O rout|ine to i|
|000030f0| 6e 70 75 74 20 73 74 61 | 72 74 69 6e 67 20 61 74 |nput sta|rting at|
|00003100| 20 58 2c 20 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | X, ..  |        |
|00003110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 72 |        |       r|
|00003120| 65 74 61 69 6e 69 6e 67 | 20 44 4f 53 2e 20 4c 4f |etaining| DOS. LO|
|00003130| 20 61 6e 64 20 48 49 20 | 61 73 20 61 62 6f 76 65 | and HI |as above|
|00003140| 2e 20 0d 0a 20 24 33 43 | 2e 33 44 20 20 20 50 4f |. .. $3C|.3D   PO|
|00003150| 4b 45 36 31 2c 58 3a 20 | 50 4f 4b 45 36 31 2c 58 |KE61,X: |POKE61,X|
|00003160| 2d 32 35 36 20 2a 20 50 | 45 45 4b 28 58 29 3a 20 |-256 * P|EEK(X): |
|00003170| 43 41 4c 4c 2d 36 32 32 | 20 0d 0a 20 20 20 20 20 |CALL-622| ..     |
|00003180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003190| 20 20 20 20 50 72 69 6e | 74 20 58 20 69 6e 20 48 |    Prin|t X in H|
|000031a0| 45 58 2e 20 0d 0a 20 24 | 44 36 3a 38 30 20 20 20 |EX. .. $|D6:80   |
|000031b0| 50 4f 4b 45 20 32 31 34 | 2c 31 32 38 20 20 20 4d |POKE 214|,128   M|
|000031c0| 61 6b 65 20 61 6c 6c 20 | 41 70 70 6c 65 73 6f 66 |ake all |Applesof|
|000031d0| 74 20 63 6f 6d 6d 61 6e | 64 73 20 3d 20 22 52 55 |t comman|ds = "RU|
|000031e0| 4e 22 2e 20 0d 0a 20 24 | 33 46 32 3a 36 36 20 64 |N". .. $|3F2:66 d|
|000031f0| 35 20 37 30 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |5 70 .. |        |
|00003200| 20 50 4f 4b 45 20 31 30 | 31 30 2c 31 30 32 3a 20 | POKE 10|10,102: |
|00003210| 50 4f 4b 45 20 31 30 31 | 31 2c 32 31 33 3a 20 50 |POKE 101|1,213: P|
|00003220| 4f 4b 45 20 31 30 31 32 | 2c 31 31 32 20 0d 0a 20 |OKE 1012|,112 .. |
|00003230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003240| 20 20 20 20 20 20 20 20 | 4d 61 6b 65 20 52 45 53 |        |Make RES|
|00003250| 45 54 20 63 61 75 73 65 | 20 74 68 65 20 70 72 6f |ET cause| the pro|
|00003260| 67 72 61 6d 20 74 6f 20 | 52 55 4e 2e 20 0d 0a 20 |gram to |RUN. .. |
|00003270| 24 33 46 32 3a 58 20 30 | 20 30 20 0d 0a 20 20 20 |$3F2:X 0| 0 ..   |
|00003280| 20 20 20 20 20 20 20 50 | 4f 4b 45 20 31 30 31 30 |       P|OKE 1010|
|00003290| 2c 30 3a 20 50 4f 4b 45 | 20 31 30 31 31 2c 30 3a |,0: POKE| 1011,0:|
|000032a0| 20 50 4f 4b 45 20 31 30 | 31 32 2c 30 20 0d 0a 20 | POKE 10|12,0 .. |
|000032b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000032c0| 20 20 20 20 20 20 20 20 | 4d 61 6b 65 20 52 45 53 |        |Make RES|
|000032d0| 45 54 20 63 61 75 73 65 | 20 61 20 72 65 62 6f 6f |ET cause| a reboo|
|000032e0| 74 2e 20 0d 0a 20 24 33 | 46 36 3a 32 35 20 44 36 |t. .. $3|F6:25 D6|
|000032f0| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 50 4f 4b | ..     |     POK|
|00003300| 45 20 31 30 31 34 2c 31 | 36 35 3a 20 50 4f 4b 45 |E 1014,1|65: POKE|
|00003310| 20 31 30 31 35 2c 32 31 | 34 20 0d 0a 20 20 20 20 | 1015,21|4 ..    |
|00003320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003330| 20 20 20 20 20 4d 61 6b | 65 73 20 22 26 22 20 65 |     Mak|es "&" e|
|00003340| 71 75 69 76 61 6c 65 6e | 74 20 74 6f 20 22 4c 49 |quivalen|t to "LI|
|00003350| 53 54 22 2e 20 0d 0a 20 | 24 38 30 31 3a 31 20 20 |ST". .. |$801:1  |
|00003360| 20 50 4f 4b 45 20 32 30 | 34 39 2c 31 20 20 20 20 | POKE 20|49,1    |
|00003370| 4d 61 6b 65 73 20 66 69 | 72 73 74 20 69 6e 65 20 |Makes fi|rst ine |
|00003380| 6f 66 20 70 72 6f 67 72 | 61 6d 20 6c 69 73 74 20 |of progr|am list |
|00003390| 72 65 70 65 61 74 65 64 | 6c 79 2e 20 0d 0a 20 24 |repeated|ly. .. $|
|000033a0| 39 44 35 45 3a 32 33 20 | 44 38 20 0d 0a 20 20 20 |9D5E:23 |D8 ..   |
|000033b0| 20 20 20 20 20 20 20 50 | 4f 4b 45 20 34 30 32 38 |       P|OKE 4028|
|000033c0| 36 2c 33 35 3a 20 50 4f | 4b 45 34 30 32 38 37 2c |6,35: PO|KE40287,|
|000033d0| 32 31 36 20 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |216 ..  |        |
|000033e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 54 |        |       T|
|000033f0| 72 61 70 20 52 45 53 45 | 54 20 77 69 74 68 20 4f |rap RESE|T with O|
|00003400| 4e 45 52 52 47 4f 54 4f | 20 73 74 6d 74 2e 20 0d |NERRGOTO| stmt. .|
|00003410| 0a 20 24 41 41 36 30 2e | 41 41 36 31 20 0d 0a 20 |. $AA60.|AA61 .. |
|00003420| 20 20 20 20 20 20 20 20 | 20 50 45 45 4b 28 34 33 |        | PEEK(43|
|00003430| 36 31 36 29 20 2b 20 50 | 45 45 4b 28 34 32 36 31 |616) + P|EEK(4261|
|00003440| 37 29 20 2a 20 32 35 36 | 20 0d 0a 20 20 20 20 20 |7) * 256| ..     |
|00003450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003460| 20 20 20 20 4c 65 6e 67 | 74 68 20 6f 66 20 6c 61 |    Leng|th of la|
|00003470| 73 74 20 42 4c 4f 41 44 | 65 64 20 62 69 6e 61 72 |st BLOAD|ed binar|
|00003480| 79 20 66 69 6c 65 2e 20 | 0d 0a 20 24 41 41 37 32 |y file. |.. $AA72|
|00003490| 2e 41 41 37 33 20 0d 0a | 20 20 20 20 20 20 20 20 |.AA73 ..|        |
|000034a0| 20 20 50 45 45 4b 28 34 | 33 36 33 34 29 20 2b 20 |  PEEK(4|3634) + |
|000034b0| 50 45 45 4b 28 34 33 36 | 33 35 29 20 2a 20 32 35 |PEEK(436|35) * 25|
|000034c0| 36 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |6 ..    |        |
|000034d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 74 61 |        |     Sta|
|000034e0| 72 74 69 6e 67 20 61 64 | 64 72 65 73 73 20 6f 66 |rting ad|dress of|
|000034f0| 20 6c 61 73 74 20 42 4c | 4f 41 44 65 64 20 62 69 | last BL|OADed bi|
|00003500| 6e 61 72 79 20 66 69 6c | 65 2e 20 0d 0a 20 24 41 |nary fil|e. .. $A|
|00003510| 44 44 39 3a 45 41 20 45 | 41 20 0d 0a 20 20 20 20 |DD9:EA E|A ..    |
|00003520| 20 20 20 20 20 20 50 4f | 4b 45 20 34 34 35 30 35 |      PO|KE 44505|
|00003530| 2c 32 33 34 3a 20 50 4f | 4b 45 20 34 34 35 30 36 |,234: PO|KE 44506|
|00003540| 2c 32 33 34 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |,234 .. |        |
|00003550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003560| 53 68 6f 77 73 20 44 45 | 4c 45 54 45 64 20 66 69 |Shows DE|LETEd fi|
|00003570| 6c 65 20 6e 61 6d 65 73 | 20 69 6e 20 43 41 54 41 |le names| in CATA|
|00003580| 4c 4f 47 20 6c 69 73 74 | 69 6e 67 2e 20 0d 0a 20 |LOG list|ing. .. |
|00003590| 24 41 45 33 32 3a 45 41 | 20 45 41 20 0d 0a 20 20 |$AE32:EA| EA ..  |
|000035a0| 20 20 20 20 20 20 20 20 | 50 4f 4b 45 20 34 34 35 |        |POKE 445|
|000035b0| 39 39 2c 32 33 34 3a 20 | 50 4f 4b 45 20 34 34 36 |99,234: |POKE 446|
|000035c0| 30 30 2c 32 33 34 20 0d | 0a 20 20 20 20 20 20 20 |00,234 .|.       |
|000035d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000035e0| 20 20 57 61 69 74 20 66 | 6f 72 20 6b 65 79 20 70 |  Wait f|or key p|
|000035f0| 72 65 73 73 20 61 66 74 | 65 72 20 45 56 45 52 59 |ress aft|er EVERY|
|00003600| 20 6e 61 6d 65 20 69 6e | 20 0d 0a 20 20 20 20 20 | name in| ..     |
|00003610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003620| 20 20 20 20 43 41 54 41 | 4c 4f 47 20 6c 69 73 74 |    CATA|LOG list|
|00003630| 69 6e 67 2e 20 0d 0a 20 | 24 42 46 44 33 3a 45 41 |ing. .. |$BFD3:EA|
|00003640| 20 45 41 20 45 41 20 0d | 0a 20 20 20 20 20 20 20 | EA EA .|.       |
|00003650| 20 20 20 50 4f 4b 45 20 | 34 39 31 30 37 2c 32 33 |   POKE |49107,23|
|00003660| 34 3a 20 50 4f 4b 45 20 | 34 39 31 30 38 2c 32 33 |4: POKE |49108,23|
|00003670| 34 3a 20 50 4f 4b 45 34 | 39 31 30 39 2c 32 33 34 |4: POKE4|9109,234|
|00003680| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..     |        |
|00003690| 20 20 20 20 20 20 20 20 | 20 20 20 20 50 72 65 76 |        |    Prev|
|000036a0| 65 6e 74 73 20 4c 61 6e | 67 75 61 67 65 20 63 61 |ents Lan|guage ca|
|000036b0| 72 64 20 72 65 6c 6f 61 | 64 20 77 69 74 68 20 72 |rd reloa|d with r|
|000036c0| 65 62 6f 6f 74 2e 20 0d | 0a 20 20 20 20 20 20 20 |eboot. .|.       |
|000036d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000036e0| 20 20 4d 55 53 54 20 49 | 4e 49 54 20 64 69 73 6b |  MUST I|NIT disk|
|000036f0| 20 61 66 74 65 72 20 6d | 61 6b 69 6e 67 20 74 68 | after m|aking th|
|00003700| 65 73 65 20 70 6f 6b 65 | 73 2e 20 0d 0a 20 24 46 |ese poke|s. .. $F|
|00003710| 44 36 32 20 20 20 20 43 | 41 4c 4c 20 2d 36 37 30 |D62    C|ALL -670|
|00003720| 20 20 20 20 20 20 50 65 | 72 66 6f 72 6d 20 6c 69 |      Pe|rform li|
|00003730| 6e 65 20 63 61 6e 63 65 | 6c 20 28 5e 58 29 2e 20 |ne cance|l (^X). |
|00003740| 0d 0a 20 24 46 45 32 43 | 20 20 20 20 50 4f 4b 45 |.. $FE2C|    POKE|
|00003750| 20 36 30 2c 4c 4f 42 3a | 20 50 4f 4b 45 20 36 31 | 60,LOB:| POKE 61|
|00003760| 2c 48 4f 42 3a 20 50 4f | 4b 45 20 36 32 2c 4c 4f |,HOB: PO|KE 62,LO|
|00003770| 45 3a 20 20 50 4f 4b 45 | 20 36 33 2c 48 49 45 3a |E:  POKE| 63,HIE:|
|00003780| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 50 4f 4b | ..     |     POK|
|00003790| 45 20 36 36 2c 4c 4f 44 | 3a 20 50 4f 4b 45 20 36 |E 66,LOD|: POKE 6|
|000037a0| 37 2c 48 49 44 3a 20 43 | 41 4c 4c 20 2d 34 36 38 |7,HID: C|ALL -468|
|000037b0| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..     |        |
|000037c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 50 65 72 66 |        |    Perf|
|000037d0| 6f 72 6d 20 6d 65 6d 6f | 72 79 20 6d 6f 76 65 3a |orm memo|ry move:|
|000037e0| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..     |        |
|000037f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 4c 4f 42 20 |        |    LOB |
|00003800| 69 73 20 6c 6f 2d 62 79 | 74 65 20 6f 66 20 62 65 |is lo-by|te of be|
|00003810| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 6d 65 6d 6f 72 |ginning |of memor|
|00003820| 79 20 74 6f 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |y to .. |        |
|00003830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003840| 6d 6f 76 65 2c 20 48 49 | 42 20 69 73 20 68 69 67 |move, HI|B is hig|
|00003850| 68 2e 20 4c 4f 45 20 69 | 73 20 6c 6f 20 65 6e 64 |h. LOE i|s lo end|
|00003860| 2c 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |, ..    |        |
|00003870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 48 49 45 |        |     HIE|
|00003880| 20 69 73 20 68 69 67 68 | 2e 20 4c 4f 44 20 69 73 | is high|. LOD is|
|00003890| 20 6c 6f 77 20 64 65 73 | 74 69 6e 61 74 69 6f 6e | low des|tination|
|000038a0| 2c 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |, ..    |        |
|000038b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 48 49 44 |        |     HID|
|000038c0| 20 69 73 20 68 69 67 68 | 2e 20 55 73 65 20 34 35 | is high|. Use 45|
|000038d0| 38 20 69 6e 73 74 65 61 | 64 20 6f 66 20 34 36 38 |8 instea|d of 468|
|000038e0| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..     |        |
|000038f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 66 6f 72 20 |        |    for |
|00003900| 56 45 52 49 46 59 2e 20 | 0d 0a 20 24 46 33 32 38 |VERIFY. |.. $F328|
|00003910| 20 20 20 20 43 41 4c 4c | 20 2d 33 32 38 38 20 20 |    CALL| -3288  |
|00003920| 20 20 20 50 6c 61 63 65 | 20 61 74 20 74 68 65 20 |   Place| at the |
|00003930| 73 74 61 72 74 20 6f 66 | 20 74 68 65 20 65 72 72 |start of| the err|
|00003940| 6f 72 20 68 61 6e 64 6c | 69 6e 67 20 0d 0a 20 20 |or handl|ing ..  |
|00003950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003960| 20 20 20 20 20 20 20 72 | 6f 75 74 69 6e 65 2e 20 |       r|outine. |
|00003970| 20 46 69 78 65 73 20 4f | 4e 45 52 52 47 4f 54 4f | Fixes O|NERRGOTO|
|00003980| 20 70 72 6f 62 6c 65 6d | 73 20 69 6e 20 6e 65 73 | problem|s in nes|
|00003990| 74 65 64 20 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ted ..  |        |
|000039a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 47 |        |       G|
|000039b0| 4f 53 55 42 53 2e 20 0d | 0a 20 0d 0a 20 0d 0a 20 |OSUBS. .|. .. .. |
|000039c0| 0d 0a 20 20 54 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |..  The |followin|
|000039d0| 67 20 64 69 64 20 6e 6f | 74 20 61 70 70 65 61 72 |g did no|t appear|
|000039e0| 20 6f 6e 20 74 68 65 20 | 52 65 66 65 72 65 6e 63 | on the |Referenc|
|000039f0| 65 20 43 61 72 64 20 62 | 65 63 61 75 73 65 20 6f |e Card b|ecause o|
|00003a00| 66 20 6c 61 63 6b 20 0d | 0a 20 20 20 20 20 20 20 |f lack .|.       |
|00003a10| 20 20 20 20 6f 66 20 73 | 70 61 63 65 2e 20 20 53 |    of s|pace.  S|
|00003a20| 6f 6d 65 20 61 72 65 20 | 72 61 74 68 65 72 20 73 |ome are |rather s|
|00003a30| 70 65 63 69 61 6c 69 7a | 65 64 20 63 6f 6d 6d 61 |pecializ|ed comma|
|00003a40| 6e 64 73 2e 20 0d 0a 20 | 0d 0a 20 0d 0a 20 0d 0a |nds. .. |.. .. ..|
|00003a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4d 49 53 |        |     MIS|
|00003a70| 43 45 4c 4c 41 4e 45 4f | 55 53 20 0d 0a 20 24 46 |CELLANEO|US .. $F|
|00003a80| 38 30 30 20 20 20 20 43 | 41 4c 4c 20 2d 32 30 34 |800    C|ALL -204|
|00003a90| 38 20 20 20 20 20 4c 6f | 2d 52 65 73 20 70 6c 6f |8     Lo|-Res plo|
|00003aa0| 74 20 61 20 70 6f 69 6e | 74 20 28 41 43 3a 59 2d |t a poin|t (AC:Y-|
|00003ab0| 43 6f 6f 72 64 20 20 59 | 3a 58 2d 43 6f 6f 72 64 |Coord  Y|:X-Coord|
|00003ac0| 29 2e 20 0d 0a 20 24 46 | 38 31 39 20 20 20 20 43 |). .. $F|819    C|
|00003ad0| 41 4c 4c 20 2d 32 30 32 | 33 20 20 20 20 20 4c 6f |ALL -202|3     Lo|
|00003ae0| 2d 52 65 73 20 64 72 61 | 77 20 61 20 68 6f 72 69 |-Res dra|w a hori|
|00003af0| 7a 6f 6e 74 61 6c 20 6c | 69 6e 65 20 28 41 43 3a |zontal l|ine (AC:|
|00003b00| 59 2d 43 6f 6f 72 64 20 | 0d 0a 20 20 20 20 20 20 |Y-Coord |..      |
|00003b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003b20| 20 20 20 59 3a 58 2d 43 | 6f 6f 72 64 29 2e 20 0d |   Y:X-C|oord). .|
|00003b30| 0a 20 24 46 38 32 38 20 | 20 20 20 43 41 4c 4c 20 |. $F828 |   CALL |
|00003b40| 2d 32 30 30 38 20 20 20 | 20 20 4c 6f 2d 52 65 73 |-2008   |  Lo-Res|
|00003b50| 20 64 72 61 77 20 61 20 | 76 65 72 74 69 63 61 6c | draw a |vertical|
|00003b60| 20 6c 69 6e 65 20 0d 0a | 20 20 20 20 20 20 20 20 | line ..|        |
|00003b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003b80| 20 28 41 43 3a 59 2d 43 | 6f 6f 72 64 20 20 59 3a | (AC:Y-C|oord  Y:|
|00003b90| 58 2d 43 6f 6f 72 64 29 | 2e 20 0d 0a 20 24 46 38 |X-Coord)|. .. $F8|
|00003ba0| 35 46 20 20 20 20 43 41 | 4c 4c 20 2d 31 39 35 33 |5F    CA|LL -1953|
|00003bb0| 20 20 20 20 20 49 6e 63 | 72 65 6d 65 6e 74 20 6c |     Inc|rement l|
|00003bc0| 6f 2d 72 65 73 20 63 6f | 6c 6f 72 20 62 79 20 33 |o-res co|lor by 3|
|00003bd0| 2e 20 0d 0a 20 24 46 38 | 36 34 20 20 20 20 43 41 |. .. $F8|64    CA|
|00003be0| 4c 4c 20 2d 31 39 34 38 | 20 20 20 20 20 43 68 61 |LL -1948|     Cha|
|00003bf0| 6e 67 65 20 6c 6f 2d 72 | 65 73 20 63 6f 6c 6f 72 |nge lo-r|es color|
|00003c00| 20 62 79 74 65 20 74 6f | 20 63 6f 6c 6f 72 20 0d | byte to| color .|
|00003c10| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003c20| 20 20 20 20 20 20 20 20 | 20 20 63 6f 64 65 20 69 |        |  code i|
|00003c30| 6e 20 41 43 43 2e 20 0d | 0a 20 0d 0a 20 20 20 20 |n ACC. .|. ..    |
|00003c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003c50| 20 20 20 20 20 43 41 4c | 4c 53 20 54 4f 20 54 48 |     CAL|LS TO TH|
|00003c60| 45 20 4d 4f 4e 49 54 4f | 52 20 0d 0a 20 24 46 38 |E MONITO|R .. $F8|
|00003c70| 38 45 20 20 20 20 43 41 | 4c 4c 20 2d 31 39 30 36 |8E    CA|LL -1906|
|00003c80| 20 20 20 20 20 44 69 73 | 61 73 73 65 6d 62 6c 65 |     Dis|assemble|
|00003c90| 72 20 65 6e 74 72 79 20 | 6c 6f 63 61 74 69 6f 6e |r entry |location|
|00003ca0| 2e 20 0d 0a 20 24 46 39 | 34 30 20 20 20 20 43 41 |. .. $F9|40    CA|
|00003cb0| 4c 4c 20 2d 31 37 32 38 | 20 20 20 20 20 50 72 69 |LL -1728|     Pri|
|00003cc0| 6e 74 20 63 6f 6e 74 65 | 6e 74 73 20 6f 66 20 58 |nt conte|nts of X|
|00003cd0| 20 26 20 59 20 72 65 67 | 73 20 61 73 20 34 20 0d | & Y reg|s as 4 .|
|00003ce0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003cf0| 20 20 20 20 20 20 20 20 | 20 20 68 65 78 20 64 69 |        |  hex di|
|00003d00| 67 69 74 73 2e 20 0d 0a | 20 24 46 39 34 43 20 20 |gits. ..| $F94C  |
|00003d10| 20 20 43 41 4c 4c 20 2d | 31 37 31 36 20 20 20 20 |  CALL -|1716    |
|00003d20| 20 50 72 69 6e 74 20 58 | 20 62 6c 61 6e 6b 73 20 | Print X| blanks |
|00003d30| 28 58 20 72 65 67 20 63 | 6f 6e 74 61 69 6e 73 20 |(X reg c|ontains |
|00003d40| 23 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |# ..    |        |
|00003d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 74 6f 20 |        |     to |
|00003d60| 70 72 69 6e 74 29 2e 20 | 0d 0a 20 24 46 41 38 36 |print). |.. $FA86|
|00003d70| 20 20 20 20 43 41 4c 4c | 20 2d 31 34 30 32 20 20 |    CALL| -1402  |
|00003d80| 20 20 20 49 52 51 20 68 | 61 6e 64 6c 65 72 2e 20 |   IRQ h|andler. |
|00003d90| 0d 0a 20 24 46 41 44 37 | 20 20 20 20 43 41 4c 4c |.. $FAD7|    CALL|
|00003da0| 20 2d 31 33 39 30 20 20 | 20 20 20 42 72 65 61 6b | -1390  |   Break|
|00003db0| 20 68 61 6e 64 6c 65 72 | 2e 20 0d 0a 20 24 46 41 | handler|. .. $FA|
|00003dc0| 44 37 20 20 20 20 43 41 | 4c 4c 20 2d 31 33 32 31 |D7    CA|LL -1321|
|00003dd0| 20 20 20 20 20 44 69 73 | 70 6c 61 79 20 75 73 65 |     Dis|play use|
|00003de0| 72 20 72 65 67 69 73 74 | 65 72 73 2e 20 0d 0a 20 |r regist|ers. .. |
|00003df0| 24 46 42 32 46 20 20 20 | 20 43 41 4c 4c 20 2d 31 |$FB2F   | CALL -1|
|00003e00| 32 33 33 20 20 20 20 20 | 53 63 72 65 65 6e 20 69 |233     |Screen i|
|00003e10| 6e 69 74 69 61 6c 69 7a | 65 20 66 6f 72 20 48 69 |nitializ|e for Hi|
|00003e20| 2d 72 65 73 20 67 72 61 | 70 68 69 63 73 2e 20 0d |-res gra|phics. .|
|00003e30| 0a 20 24 46 42 34 42 20 | 20 20 20 43 41 4c 4c 20 |. $FB4B |   CALL |
|00003e40| 2d 31 32 30 35 20 20 20 | 20 20 53 65 74 20 6e 6f |-1205   |  Set no|
|00003e50| 72 6d 61 6c 20 74 65 78 | 74 20 77 69 6e 64 6f 77 |rmal tex|t window|
|00003e60| 2e 20 0d 0a 20 24 46 42 | 36 33 20 20 20 20 43 41 |. .. $FB|63    CA|
|00003e70| 4c 4c 20 2d 31 31 38 31 | 20 20 20 20 20 4d 6f 6e |LL -1181|     Mon|
|00003e80| 69 74 6f 72 20 6d 75 6c | 74 69 70 6c 79 20 72 6f |itor mul|tiply ro|
|00003e90| 75 74 69 6e 65 2e 20 0d | 0a 20 24 46 42 38 34 20 |utine. .|. $FB84 |
|00003ea0| 20 20 20 43 41 4c 4c 20 | 2d 31 31 34 38 20 20 20 |   CALL |-1148   |
|00003eb0| 20 20 4d 6f 6e 69 74 6f | 72 20 64 69 76 69 64 65 |  Monito|r divide|
|00003ec0| 20 72 6f 75 74 69 6e 65 | 2e 20 0d 0a 20 24 46 42 | routine|. .. $FB|
|00003ed0| 43 31 20 20 20 20 43 41 | 4c 4c 20 2d 31 30 38 37 |C1    CA|LL -1087|
|00003ee0| 20 20 20 20 20 43 61 6c | 63 75 6c 61 74 65 20 74 |     Cal|culate t|
|00003ef0| 65 78 74 20 62 61 73 65 | 20 61 64 64 72 65 73 73 |ext base| address|
|00003f00| 2e 20 0d 0a 20 24 46 42 | 46 44 20 20 20 20 43 41 |. .. $FB|FD    CA|
|00003f10| 4c 4c 20 2d 31 30 32 37 | 20 20 20 20 20 4f 75 74 |LL -1027|     Out|
|00003f20| 70 75 74 20 41 2d 72 65 | 67 2e 20 61 73 20 41 53 |put A-re|g. as AS|
|00003f30| 43 49 49 20 6f 6e 20 74 | 65 78 74 20 0d 0a 20 20 |CII on t|ext ..  |
|00003f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f50| 20 20 20 20 20 20 20 73 | 63 72 65 65 6e 20 31 2e |       s|creen 1.|
|00003f60| 20 0d 0a 20 24 46 43 32 | 43 20 20 20 20 43 41 4c | .. $FC2|C    CAL|
|00003f70| 4c 20 2d 39 38 30 20 20 | 20 20 20 20 50 65 72 66 |L -980  |    Perf|
|00003f80| 6f 72 6d 20 65 73 63 61 | 70 65 20 66 75 6e 63 74 |orm esca|pe funct|
|00003f90| 69 6f 6e 2e 20 0d 0a 20 | 24 46 43 41 38 20 20 20 |ion. .. |$FCA8   |
|00003fa0| 20 43 41 4c 4c 20 2d 38 | 35 36 20 20 20 20 20 20 | CALL -8|56      |
|00003fb0| 57 61 69 74 20 6c 6f 6f | 70 2e 20 20 4c 65 6e 67 |Wait loo|p.  Leng|
|00003fc0| 74 68 20 6f 66 20 77 61 | 69 74 20 64 65 74 65 72 |th of wa|it deter|
|00003fd0| 6d 69 6e 65 64 20 0d 0a | 20 20 20 20 20 20 20 20 |mined ..|        |
|00003fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003ff0| 20 62 79 20 31 2e 30 32 | 28 32 2e 35 41 5e 32 20 | by 1.02|(2.5A^2 |
|00004000| 2b 20 31 33 2e 35 41 20 | 2b 20 31 33 29 3b 20 77 |+ 13.5A |+ 13); w|
|00004010| 68 65 72 65 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |here .. |        |
|00004020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004030| 41 20 3d 20 63 6f 6e 74 | 65 6e 74 73 20 6f 66 20 |A = cont|ents of |
|00004040| 41 2d 72 65 67 20 77 68 | 65 6e 20 63 61 6c 6c 65 |A-reg wh|en calle|
|00004050| 64 2e 20 0d 0a 20 24 46 | 44 30 43 20 20 20 20 43 |d. .. $F|D0C    C|
|00004060| 41 4c 4c 20 2d 37 35 36 | 20 20 20 20 20 20 47 65 |ALL -756|      Ge|
|00004070| 74 20 6b 65 79 20 69 6e | 70 75 74 20 66 72 6f 6d |t key in|put from|
|00004080| 20 6b 65 79 62 6f 61 72 | 64 20 28 64 65 73 74 72 | keyboar|d (destr|
|00004090| 6f 79 73 20 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |oys ..  |        |
|000040a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 61 |        |       a|
|000040b0| 63 63 75 6d 75 6c 61 74 | 6f 72 20 61 6e 64 20 59 |ccumulat|or and Y|
|000040c0| 20 72 65 67 69 73 74 65 | 72 29 2e 20 57 61 69 74 | registe|r). Wait|
|000040d0| 20 66 6f 72 20 6b 65 79 | 20 0d 0a 20 20 20 20 20 | for key| ..     |
|000040e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000040f0| 20 20 20 20 70 72 65 73 | 73 2e 20 0d 0a 20 24 46 |    pres|s. .. $F|
|00004100| 44 31 42 20 20 20 20 43 | 41 4c 4c 20 2d 37 34 31 |D1B    C|ALL -741|
|00004110| 20 20 20 20 20 20 4d 6f | 6e 69 74 6f 72 20 4b 45 |      Mo|nitor KE|
|00004120| 59 49 4e 20 72 6f 75 74 | 69 6e 65 2e 20 0d 0a 20 |YIN rout|ine. .. |
|00004130| 24 46 44 33 35 20 20 20 | 20 43 41 4c 4c 20 2d 37 |$FD35   | CALL -7|
|00004140| 31 35 20 20 20 20 20 20 | 52 65 61 64 20 6b 65 79 |15      |Read key|
|00004150| 20 26 20 70 65 72 66 6f | 72 6d 20 65 73 63 61 70 | & perfo|rm escap|
|00004160| 65 20 66 75 6e 63 74 69 | 6f 6e 20 69 66 20 0d 0a |e functi|on if ..|
|00004170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004180| 20 20 20 20 20 20 20 20 | 20 6e 65 63 65 73 73 61 |        | necessa|
|00004190| 72 79 2e 20 0d 0a 20 24 | 46 44 36 32 20 20 20 20 |ry. .. $|FD62    |
|000041a0| 43 41 4c 4c 20 2d 36 37 | 30 20 20 20 20 20 20 50 |CALL -67|0      P|
|000041b0| 65 72 66 6f 72 6d 20 6c | 69 6e 65 20 63 61 6e 63 |erform l|ine canc|
|000041c0| 65 6c 2e 20 0d 0a 20 24 | 46 44 36 37 20 20 20 20 |el. .. $|FD67    |
|000041d0| 43 41 4c 4c 20 2d 36 36 | 35 20 20 20 20 20 20 50 |CALL -66|5      P|
|000041e0| 65 72 66 6f 72 6d 20 63 | 61 72 72 69 61 67 65 20 |erform c|arriage |
|000041f0| 72 65 74 75 72 6e 20 26 | 20 67 65 74 20 6c 69 6e |return &| get lin|
|00004200| 65 20 6f 66 20 74 65 78 | 74 2e 20 0d 0a 20 24 46 |e of tex|t. .. $F|
|00004210| 44 36 41 20 20 20 20 43 | 41 4c 4c 20 2d 36 36 32 |D6A    C|ALL -662|
|00004220| 20 20 20 20 20 20 47 65 | 74 20 6c 69 6e 65 20 6f |      Ge|t line o|
|00004230| 66 20 74 65 78 74 20 66 | 72 6f 6d 20 6b 65 79 62 |f text f|rom keyb|
|00004240| 6f 61 72 64 20 28 58 20 | 52 65 74 6e 64 20 77 69 |oard (X |Retnd wi|
|00004250| 74 68 20 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |th ..   |        |
|00004260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6e 75 |        |      nu|
|00004270| 6d 62 65 72 20 6f 66 20 | 63 68 61 72 61 63 74 65 |mber of |characte|
|00004280| 72 73 29 2e 20 0d 0a 20 | 24 46 44 36 46 20 20 20 |rs). .. |$FD6F   |
|00004290| 20 43 41 4c 4c 20 2d 36 | 35 37 20 20 20 20 20 20 | CALL -6|57      |
|000042a0| 57 61 69 74 20 66 6f 72 | 20 69 6e 70 75 74 2e 20 |Wait for| input. |
|000042b0| 0d 0a 20 24 46 44 38 45 | 20 20 20 20 43 41 4c 4c |.. $FD8E|    CALL|
|000042c0| 20 2d 36 32 36 20 20 20 | 20 20 20 50 72 69 6e 74 | -626   |   Print|
|000042d0| 20 63 61 72 72 69 61 67 | 65 20 72 65 74 75 72 6e | carriag|e return|
|000042e0| 20 28 64 65 73 74 72 6f | 79 73 20 41 43 43 2e 20 | (destro|ys ACC. |
|000042f0| 26 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |& ..    |        |
|00004300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 59 2d 72 |        |     Y-r|
|00004310| 65 67 2e 29 2e 20 0d 0a | 20 24 46 44 44 41 20 20 |eg.). ..| $FDDA  |
|00004320| 20 20 43 41 4c 4c 20 2d | 35 35 30 20 20 20 20 20 |  CALL -|550     |
|00004330| 20 50 72 69 6e 74 20 63 | 6f 6e 74 65 6e 74 73 20 | Print c|ontents |
|00004340| 6f 66 20 61 63 63 75 6d | 2e 20 61 73 20 32 20 68 |of accum|. as 2 h|
|00004350| 65 78 20 64 69 67 69 74 | 73 2e 20 0d 0a 20 24 46 |ex digit|s. .. $F|
|00004360| 44 45 33 20 20 20 20 43 | 41 4c 4c 20 2d 35 34 31 |DE3    C|ALL -541|
|00004370| 20 20 20 20 20 20 50 72 | 69 6e 74 20 61 20 68 65 |      Pr|int a he|
|00004380| 78 20 64 69 67 69 74 2e | 20 0d 0a 20 24 46 44 45 |x digit.| .. $FDE|
|00004390| 44 20 20 20 20 43 41 4c | 4c 20 2d 35 33 31 20 20 |D    CAL|L -531  |
|000043a0| 20 20 20 20 4f 75 74 70 | 75 74 20 63 68 61 72 61 |    Outp|ut chara|
|000043b0| 63 74 65 72 20 69 6e 20 | 61 63 63 75 6d 20 74 6f |cter in |accum to|
|000043c0| 20 43 53 57 4c 20 6f 75 | 74 70 75 74 20 0d 0a 20 | CSWL ou|tput .. |
|000043d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000043e0| 20 20 20 20 20 20 20 20 | 64 65 76 69 63 65 2e 20 |        |device. |
|000043f0| 28 64 65 73 74 72 6f 79 | 73 20 61 63 63 2e 20 26 |(destroy|s acc. &|
|00004400| 20 59 2d 72 65 67 29 2e | 20 0d 0a 20 24 46 44 46 | Y-reg).| .. $FDF|
|00004410| 30 20 20 20 20 43 41 4c | 4c 20 2d 35 32 38 20 20 |0    CAL|L -528  |
|00004420| 20 20 20 20 47 65 74 20 | 6d 6f 6e 69 74 6f 72 20 |    Get |monitor |
|00004430| 63 68 61 72 61 63 74 65 | 72 20 6f 75 74 70 75 74 |characte|r output|
|00004440| 2e 20 0d 0a 20 24 46 45 | 35 45 20 20 20 20 20 20 |. .. $FE|5E      |
|00004450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 44 69 73 |        |     Dis|
|00004460| 61 73 73 65 6d 62 6c 65 | 20 32 30 20 69 6e 73 74 |assemble| 20 inst|
|00004470| 72 75 63 74 69 6f 6e 73 | 2e 20 0d 0a 20 24 46 45 |ructions|. .. $FE|
|00004480| 42 33 20 20 20 20 43 41 | 4c 4c 20 2d 33 33 33 20 |B3    CA|LL -333 |
|00004490| 20 20 20 20 20 43 6f 6e | 74 69 6e 75 65 20 42 41 |     Con|tinue BA|
|000044a0| 53 49 43 2e 20 0d 0a 20 | 24 46 45 42 36 20 20 20 |SIC. .. |$FEB6   |
|000044b0| 20 43 41 4c 4c 20 2d 33 | 33 30 20 20 20 20 20 20 | CALL -3|30      |
|000044c0| 4d 65 6d 6f 72 79 20 6c | 6f 63 61 74 69 6f 6e 20 |Memory l|ocation |
|000044d0| 22 47 4f 22 2e 20 0d 0a | 20 24 46 45 42 46 20 20 |"GO". ..| $FEBF  |
|000044e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000044f0| 20 44 69 73 70 6c 61 79 | 20 41 2c 53 2c 59 2c 50 | Display| A,S,Y,P|
|00004500| 2c 53 20 52 65 67 2e 20 | 28 63 75 72 72 65 6e 74 |,S Reg. |(current|
|00004510| 20 76 61 6c 75 65 73 29 | 2e 20 0d 0a 20 24 46 45 | values)|. .. $FE|
|00004520| 43 44 20 20 20 20 43 41 | 4c 4c 20 2d 33 30 37 20 |CD    CA|LL -307 |
|00004530| 20 20 20 20 20 57 72 69 | 74 65 20 6f 75 74 20 63 |     Wri|te out c|
|00004540| 61 73 73 65 74 74 65 20 | 74 61 70 65 2e 20 0d 0a |assette |tape. ..|
|00004550| 20 24 46 45 46 44 20 20 | 20 20 43 41 4c 4c 20 2d | $FEFD  |  CALL -|
|00004560| 32 35 39 20 20 20 20 20 | 20 52 65 61 64 20 66 72 |259     | Read fr|
|00004570| 6f 6d 20 63 61 73 73 65 | 74 74 65 20 74 61 70 65 |om casse|tte tape|
|00004580| 20 28 6c 69 6d 69 74 73 | 20 41 31 20 74 6f 20 41 | (limits| A1 to A|
|00004590| 32 29 2e 20 0d 0a 20 24 | 46 46 32 44 20 20 20 20 |2). .. $|FF2D    |
|000045a0| 43 41 4c 4c 20 2d 32 31 | 31 20 20 20 20 20 20 50 |CALL -21|1      P|
|000045b0| 72 69 6e 74 20 22 45 52 | 52 22 20 26 20 73 6f 75 |rint "ER|R" & sou|
|000045c0| 6e 64 73 20 62 65 6c 6c | 20 28 64 65 73 74 72 6f |nds bell| (destro|
|000045d0| 79 73 20 61 63 63 75 6d | 2e 20 26 20 0d 0a 20 20 |ys accum|. & ..  |
|000045e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000045f0| 20 20 20 20 20 20 20 79 | 2d 72 65 67 2e 29 2e 20 |       y|-reg.). |
|00004600| 0d 0a 20 24 46 46 33 41 | 20 20 20 20 43 41 4c 4c |.. $FF3A|    CALL|
|00004610| 20 2d 31 39 38 20 20 20 | 20 20 20 50 72 69 6e 74 | -198   |   Print|
|00004620| 20 62 65 6c 6c 20 28 64 | 65 73 74 72 6f 79 73 20 | bell (d|estroys |
|00004630| 61 63 63 75 6d 2e 20 26 | 20 59 2d 72 65 67 2e 29 |accum. &| Y-reg.)|
|00004640| 2e 20 0d 0a 20 24 46 46 | 37 30 20 20 20 20 43 41 |. .. $FF|70    CA|
|00004650| 4c 4c 20 2d 31 34 34 20 | 20 20 20 20 20 53 63 61 |LL -144 |     Sca|
|00004660| 6e 20 69 6e 70 75 74 20 | 62 75 66 66 65 72 20 28 |n input |buffer (|
|00004670| 61 64 64 72 65 73 73 20 | 24 32 30 30 2e 2e 2e 29 |address |$200...)|
|00004680| 2e 20 0d 0a 20 24 43 31 | 30 30 20 20 20 20 43 41 |. .. $C1|00    CA|
|00004690| 4c 4c 20 2d 31 36 31 32 | 38 20 20 20 20 53 61 6d |LL -1612|8    Sam|
|000046a0| 65 20 61 73 20 50 52 23 | 31 2e 20 53 74 61 6e 64 |e as PR#|1. Stand|
|000046b0| 61 72 64 20 63 68 61 72 | 61 63 74 65 72 20 49 2f |ard char|acter I/|
|000046c0| 4f 20 72 6f 75 74 69 6e | 65 20 0d 0a 20 20 20 20 |O routin|e ..    |
|000046d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000046e0| 20 20 20 20 20 65 6e 74 | 72 79 20 70 6f 69 6e 74 |     ent|ry point|
|000046f0| 20 66 6f 72 20 53 4c 4f | 54 20 31 2e 20 0d 0a 20 | for SLO|T 1. .. |
|00004700| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00004710| 20 20 20 20 20 20 20 20 | 20 20 20 4e 45 45 44 20 |        |   NEED |
|00004720| 54 4f 20 4b 4e 4f 57 20 | 43 4f 4d 4d 41 4e 44 53 |TO KNOW |COMMANDS|
|00004730| 20 0d 0a 20 24 42 33 41 | 46 20 74 6f 20 24 42 33 | .. $B3A|F to $B3|
|00004740| 42 41 20 0d 0a 20 20 20 | 20 20 20 20 20 20 20 50 |BA ..   |       P|
|00004750| 45 45 4b 28 34 35 39 39 | 39 29 20 74 6f 20 50 45 |EEK(4599|9) to PE|
|00004760| 45 4b 20 28 34 36 30 31 | 30 29 20 0d 0a 20 20 20 |EK (4601|0) ..   |
|00004770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004780| 20 20 20 20 20 20 43 6f | 6e 74 61 69 6e 73 20 74 |      Co|ntains t|
|00004790| 68 65 20 77 6f 72 64 73 | 20 27 44 49 53 4b 20 56 |he words| 'DISK V|
|000047a0| 4f 4c 55 4d 45 27 20 69 | 6e 20 72 65 76 65 72 73 |OLUME' i|n revers|
|000047b0| 65 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |e ..    |        |
|000047c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6f 72 64 |        |     ord|
|000047d0| 65 72 2e 20 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |er. ..  |        |
|000047e0| 26 20 43 61 75 73 65 73 | 20 61 6e 20 75 6e 63 6f |& Causes| an unco|
|000047f0| 6e 64 69 74 6f 6e 61 6c | 20 6a 75 6d 70 20 74 6f |nditonal| jump to|
|00004800| 20 24 33 46 35 20 28 31 | 30 31 33 29 2e 20 4f 6e | $3F5 (1|013). On|
|00004810| 65 20 63 61 6e 20 6d 61 | 6b 65 20 0d 0a 20 20 20 |e can ma|ke ..   |
|00004820| 20 20 20 20 20 20 20 24 | 33 46 35 20 61 6e 20 75 |       $|3F5 an u|
|00004830| 6e 63 6f 6e 64 69 74 69 | 6f 6e 61 6c 20 6a 75 6d |nconditi|onal jum|
|00004840| 70 20 74 6f 20 61 6e 64 | 20 61 64 64 72 65 73 73 |p to and| address|
|00004850| 20 6f 66 20 61 20 6d 61 | 63 68 69 6e 65 20 0d 0a | of a ma|chine ..|
|00004860| 20 20 20 20 20 20 20 20 | 20 20 6c 61 6e 67 75 61 |        |  langua|
|00004870| 67 65 20 70 72 6f 67 72 | 61 6d 2e 20 0d 0a 20 20 |ge progr|am. ..  |
|00004880| 20 20 20 20 20 20 20 20 | 45 58 41 4d 50 4c 45 3a |        |EXAMPLE:|
|00004890| 20 50 4f 4b 45 20 31 30 | 31 34 2c 31 36 35 3a 20 | POKE 10|14,165: |
|000048a0| 50 4f 4b 45 20 31 30 31 | 35 2c 32 31 34 20 0d 0a |POKE 101|5,214 ..|
|000048b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000048c0| 20 20 20 4d 61 6b 65 73 | 20 26 20 65 71 75 69 76 |   Makes| & equiv|
|000048d0| 61 6c 65 6e 74 20 74 6f | 20 27 4c 49 53 54 27 2e |alent to| 'LIST'.|
|000048e0| 20 0d 0a 20 52 45 4e 55 | 4d 42 45 52 20 70 61 74 | .. RENU|MBER pat|
|000048f0| 63 68 20 28 74 6f 20 63 | 6f 72 72 65 63 74 20 6c |ch (to c|orrect l|
|00004900| 69 6e 65 20 6e 75 6d 62 | 65 72 2f 76 61 72 69 61 |ine numb|er/varia|
|00004910| 62 6c 65 20 6d 69 78 75 | 70 29 20 0d 0a 20 20 20 |ble mixu|p) ..   |
|00004920| 20 20 20 20 20 20 20 4c | 4f 41 44 20 52 45 4e 55 |       L|OAD RENU|
|00004930| 4d 42 45 52 20 0d 0a 20 | 20 20 20 20 20 20 20 20 |MBER .. |        |
|00004940| 20 50 4f 4b 45 20 34 38 | 31 35 2c 31 37 32 20 0d | POKE 48|15,172 .|
|00004950| 0a 20 20 20 20 20 20 20 | 20 20 20 50 4f 4b 45 20 |.       |   POKE |
|00004960| 34 38 31 36 2c 31 37 31 | 20 0d 0a 20 20 20 20 20 |4816,171| ..     |
|00004970| 20 20 20 20 20 53 41 56 | 45 20 52 45 4e 55 4d 42 |     SAV|E RENUMB|
|00004980| 45 52 20 0d 0a 20 52 65 | 73 65 74 20 52 41 4e 44 |ER .. Re|set RAND|
|00004990| 4f 4d 20 6e 75 6d 62 65 | 72 20 67 65 6e 65 72 61 |OM numbe|r genera|
|000049a0| 74 6f 72 20 28 75 73 65 | 20 61 74 20 73 74 61 72 |tor (use| at star|
|000049b0| 74 20 6f 66 20 70 72 6f | 67 72 61 6d 29 20 0d 0a |t of pro|gram) ..|
|000049c0| 20 20 20 20 20 20 20 20 | 20 20 58 20 3d 20 52 4e |        |  X = RN|
|000049d0| 44 28 2d 20 50 45 45 4b | 28 37 38 29 20 2d 20 32 |D(- PEEK|(78) - 2|
|000049e0| 35 36 20 2a 20 50 45 45 | 4b 28 37 39 29 29 20 0d |56 * PEE|K(79)) .|
|000049f0| 0a 20 41 70 70 6c 65 73 | 6f 66 74 20 4d 4f 44 20 |. Apples|oft MOD |
|00004a00| 66 75 6e 63 74 69 6f 6e | 20 65 71 75 69 76 61 6c |function| equival|
|00004a10| 65 6e 74 20 74 6f 20 41 | 20 3d 20 58 20 4d 4f 44 |ent to A| = X MOD|
|00004a20| 20 59 2a 20 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | Y* ..  |        |
|00004a30| 41 20 3d 20 58 20 2d 20 | 49 4e 54 28 58 2f 59 29 |A = X - |INT(X/Y)|
|00004a40| 20 2a 20 59 20 0d 0a 20 | 20 20 20 20 20 6f 72 20 | * Y .. |     or |
|00004a50| 20 41 20 3d 20 58 20 2d | 20 59 20 2a 20 49 4e 54 | A = X -| Y * INT|
|00004a60| 28 58 20 2f 20 59 29 20 | 0d 0a 20 49 66 20 65 6e |(X / Y) |.. If en|
|00004a70| 74 65 72 69 6e 67 20 61 | 6e 20 41 70 70 6c 65 73 |tering a|n Apples|
|00004a80| 6f 66 74 20 70 72 6f 67 | 72 61 6d 2c 20 75 73 65 |oft prog|ram, use|
|00004a90| 20 74 68 65 20 22 3f 22 | 20 66 6f 72 20 74 68 65 | the "?"| for the|
|00004aa0| 20 63 6f 6d 6d 61 6e 64 | 20 0d 0a 20 22 50 52 49 | command| .. "PRI|
|00004ab0| 4e 54 22 2e 20 0d 0a 20 | 3f 44 24 22 63 74 72 6c |NT". .. |?D$"ctrl|
|00004ac0| 2d 49 20 38 30 4e 22 20 | 20 20 20 20 20 20 20 20 |-I 80N" |        |
|00004ad0| 57 69 6c 6c 20 6c 69 73 | 74 20 70 72 6f 67 72 61 |Will lis|t progra|
|00004ae0| 6d 20 38 30 20 63 6f 6c | 75 6d 6e 73 20 77 69 64 |m 80 col|umns wid|
|00004af0| 65 2e 20 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |e. ..   |        |
|00004b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 41 6c |        |      Al|
|00004b10| 73 6f 20 74 75 72 6e 73 | 20 6f 66 66 20 6f 75 74 |so turns| off out|
|00004b20| 70 75 74 20 74 6f 20 73 | 63 72 65 65 6e 2e 20 0d |put to s|creen. .|
|00004b30| 0a 20 0d 0a 20 0d 0a 20 | 43 52 45 44 49 54 53 3a |. .. .. |CREDITS:|
|00004b40| 20 20 50 65 6f 70 6c 65 | 73 27 20 4d 65 73 73 61 |  People|s' Messa|
|00004b50| 67 65 20 53 79 73 74 65 | 6d 20 2d 20 4d 69 6e 6e |ge Syste|m - Minn|
|00004b60| 65 61 70 6f 6c 69 73 3b | 20 4d 65 6d 62 65 72 73 |eapolis;| Members|
|00004b70| 20 6f 66 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | of..   |        |
|00004b80| 4d 69 6e 69 27 41 70 70 | 27 6c 65 73 3b 20 43 61 |Mini'App|'les; Ca|
|00004b90| 6c 6c 2d 41 2e 50 2e 50 | 2e 4c 2e 45 2e 3b 20 4e |ll-A.P.P|.L.E.; N|
|00004ba0| 69 62 62 6c 65 20 4d 61 | 67 61 7a 69 6e 65 3b 0d |ibble Ma|gazine;.|
|00004bb0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 41 70 70 6c |.       |    Appl|
|00004bc0| 65 20 4f 72 63 68 61 72 | 64 20 4d 61 67 61 7a 69 |e Orchar|d Magazi|
|00004bd0| 6e 65 2c 20 74 68 65 20 | 41 73 73 65 6d 62 6c 79 |ne, the |Assembly|
|00004be0| 20 4c 69 6e 65 3b 20 41 | 70 70 6c 65 20 49 49 0d | Line; A|pple II.|
|00004bf0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 52 65 66 65 |.       |    Refe|
|00004c00| 72 65 6e 63 65 20 4d 61 | 6e 75 61 6c 20 61 6e 64 |rence Ma|nual and|
|00004c10| 20 44 4f 53 20 6d 61 6e | 75 61 6c 2e 0d 0a 20 20 | DOS man|ual...  |
|00004c20| 20 20 20 20 20 20 20 20 | 20 41 70 70 6c 65 20 69 |        | Apple i|
|00004c30| 73 20 61 20 74 72 61 64 | 65 6d 61 72 6b 20 6f 66 |s a trad|emark of|
|00004c40| 20 41 70 70 6c 65 2c 20 | 49 6e 63 2e 20 0d 0a 20 | Apple, |Inc. .. |
|00004c50| 0d 0a 0d 0a 0d 0a 0d 0a | 0d 0a 43 6f 6d 6d 61 6e |........|..Comman|
|00004c60| 64 20 3f 4d 49 53 43 0d | 0a 0d 0a 46 6f 72 6d 61 |d ?MISC.|...Forma|
|00004c70| 74 20 66 6f 72 20 70 72 | 69 6e 74 65 72 20 28 79 |t for pr|inter (y|
|00004c80| 2f 6e 29 20 3f 59 0d 0a | 0c 0d 0a 20 0d 0a 20 0d |/n) ?Y..|... .. .|
|00004c90| 0a 20 0d 0a 20 20 20 20 | 20 20 20 20 0d 0a 20 20 |. ..    |    ..  |
|00004ca0| 20 20 20 20 20 20 54 48 | 45 20 46 4f 4c 4c 4f 57 |      TH|E FOLLOW|
|00004cb0| 49 4e 47 20 41 52 54 49 | 43 4c 45 20 57 41 53 20 |ING ARTI|CLE WAS |
|00004cc0| 44 4f 57 4e 4c 4f 41 44 | 45 44 20 46 52 4f 4d 20 |DOWNLOAD|ED FROM |
|00004cd0| 27 50 4d 53 20 2d 20 50 | 41 4c 4f 20 41 4c 54 4f |'PMS - P|ALO ALTO|
|00004ce0| 27 2e 0d 0a 20 20 20 20 | 20 20 20 20 0d 0a 20 20 |'...    |    ..  |
|00004cf0| 20 20 20 20 20 20 4d 69 | 73 63 65 6c 6c 61 6e 65 |      Mi|scellane|
|00004d00| 6f 75 73 20 50 50 26 43 | 2c 20 53 75 62 72 6f 75 |ous PP&C|, Subrou|
|00004d10| 74 69 6e 65 73 2c 20 61 | 6e 64 20 44 4f 53 20 54 |tines, a|nd DOS T|
|00004d20| 69 70 73 20 67 61 74 68 | 65 72 65 64 20 62 79 0d |ips gath|ered by.|
|00004d30| 0a 20 20 20 20 20 20 20 | 20 42 72 69 61 6e 20 4d |.       | Brian M|
|00004d40| 6f 72 61 6e 20 28 43 4c | 30 35 34 32 29 2e 20 54 |oran (CL|0542). T|
|00004d50| 61 6b 65 6e 20 66 72 6f | 6d 20 74 68 65 20 53 6f |aken fro|m the So|
|00004d60| 75 72 63 65 20 6f 6e 20 | 31 31 2f 32 32 2f 38 30 |urce on |11/22/80|
|00004d70| 3a 0d 0a 20 20 20 20 20 | 20 20 20 0d 0a 20 20 20 |:..     |   ..   |
|00004d80| 20 20 20 20 20 0d 0a 20 | 20 20 20 20 20 20 20 53 |     .. |       S|
|00004d90| 57 41 50 50 49 4e 47 20 | 47 41 4d 45 20 50 41 44 |WAPPING |GAME PAD|
|00004da0| 44 4c 45 20 42 55 54 54 | 4f 4e 53 20 42 59 20 50 |DLE BUTT|ONS BY P|
|00004db0| 4f 4b 45 53 3a 0d 0a 20 | 20 20 20 20 20 20 20 0d |OKES:.. |       .|
|00004dc0| 0a 20 20 20 20 20 20 20 | 20 43 48 41 4e 47 45 20 |.       | CHANGE |
|00004dd0| 42 55 54 54 4f 4e 20 30 | 20 54 4f 20 31 3a 50 4f |BUTTON 0| TO 1:PO|
|00004de0| 4b 45 20 31 37 39 35 34 | 2c 39 38 0d 0a 20 20 20 |KE 17954|,98..   |
|00004df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 42 55 54 54 |        |    BUTT|
|00004e00| 4f 4e 20 30 20 54 4f 20 | 32 3a 50 4f 4b 45 20 31 |ON 0 TO |2:POKE 1|
|00004e10| 37 39 35 34 2c 39 39 0d | 0a 20 20 20 20 20 20 20 |7954,99.|.       |
|00004e20| 20 20 20 20 20 20 20 20 | 42 55 54 54 4f 4e 20 31 |        |BUTTON 1|
|00004e30| 20 54 4f 20 30 3a 50 4f | 4b 45 20 31 37 38 36 31 | TO 0:PO|KE 17861|
|00004e40| 2c 39 37 20 41 4e 44 20 | 50 4f 4b 45 20 31 38 31 |,97 AND |POKE 181|
|00004e50| 32 33 2c 39 37 0d 0a 20 | 20 20 20 20 20 20 20 20 |23,97.. |        |
|00004e60| 20 20 20 20 20 20 42 55 | 54 54 4f 4e 20 31 20 54 |      BU|TTON 1 T|
|00004e70| 4f 20 32 3a 50 4f 4b 45 | 20 31 37 38 36 31 2c 39 |O 2:POKE| 17861,9|
|00004e80| 39 20 41 4e 44 20 50 4f | 4b 45 20 31 38 31 32 33 |9 AND PO|KE 18123|
|00004e90| 2c 39 39 2e 0d 0a 20 20 | 20 20 20 20 20 20 0d 0a |,99...  |      ..|
|00004ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004eb0| 20 20 20 49 4e 54 45 47 | 45 52 20 42 41 53 49 43 |   INTEG|ER BASIC|
|00004ec0| 20 43 41 4c 4c 53 0d 0a | 20 20 20 20 20 20 20 20 | CALLS..|        |
|00004ed0| 0d 0a 20 20 20 20 20 20 | 20 20 2d 31 35 35 20 20 |..      |  -155  |
|00004ee0| 45 4e 54 45 52 20 4d 4f | 4e 49 54 4f 52 20 57 49 |ENTER MO|NITOR WI|
|00004ef0| 54 48 20 42 45 4c 4c 0d | 0a 20 20 20 20 20 20 20 |TH BELL.|.       |
|00004f00| 20 2d 32 31 31 20 20 42 | 45 4c 4c 2c 20 50 52 49 | -211  B|ELL, PRI|
|00004f10| 4e 54 20 45 52 52 0d 0a | 20 20 20 20 20 20 20 20 |NT ERR..|        |
|00004f20| 2d 32 35 39 20 20 52 45 | 41 44 20 46 52 4f 4d 20 |-259  RE|AD FROM |
|00004f30| 54 41 50 45 0d 0a 20 20 | 20 20 20 20 20 20 2d 33 |TAPE..  |      -3|
|00004f40| 30 37 20 20 57 52 49 54 | 45 20 54 4f 20 54 41 50 |07  WRIT|E TO TAP|
|00004f50| 45 0d 0a 20 20 20 20 20 | 20 20 20 2d 33 33 36 20 |E..     |   -336 |
|00004f60| 20 53 43 52 41 54 43 48 | 20 42 41 53 49 43 20 50 | SCRATCH| BASIC P|
|00004f70| 52 4f 47 52 41 4d 0d 0a | 20 20 20 20 20 20 20 20 |ROGRAM..|        |
|00004f80| 2d 33 38 30 20 20 4e 4f | 52 4d 41 4c 20 4f 52 20 |-380  NO|RMAL OR |
|00004f90| 50 4f 4b 45 20 35 30 2c | 32 35 35 0d 0a 20 20 20 |POKE 50,|255..   |
|00004fa0| 20 20 20 20 20 2d 33 38 | 34 20 20 49 4e 56 45 52 |     -38|4  INVER|
|00004fb0| 53 45 20 4f 52 20 50 4f | 4b 45 20 35 30 2c 36 33 |SE OR PO|KE 50,63|
|00004fc0| 0d 0a 20 20 20 20 20 20 | 20 20 2d 36 37 36 20 20 |..      |  -676  |
|00004fd0| 42 45 4c 4c 2c 20 57 41 | 49 54 20 46 4f 52 20 28 |BELL, WA|IT FOR (|
|00004fe0| 43 52 29 0d 0a 20 20 20 | 20 20 20 20 20 2d 38 36 |CR)..   |     -86|
|00004ff0| 38 20 20 43 4c 45 41 52 | 20 43 55 52 53 4f 52 20 |8  CLEAR| CURSOR |
|00005000| 54 4f 20 45 4e 44 20 4f | 46 20 4c 49 4e 45 0d 0a |TO END O|F LINE..|
|00005010| 20 20 20 20 20 20 20 20 | 2d 39 31 32 20 20 53 43 |        |-912  SC|
|00005020| 52 4f 4c 4c 20 31 20 4c | 49 4e 45 0d 0a 20 20 20 |ROLL 1 L|INE..   |
|00005030| 20 20 20 20 20 2d 39 32 | 32 20 20 4c 49 4e 45 20 |     -92|2  LINE |
|00005040| 46 45 45 44 20 57 49 54 | 48 20 4e 4f 20 28 43 52 |FEED WIT|H NO (CR|
|00005050| 29 0d 0a 20 20 20 20 20 | 20 20 20 2d 39 33 36 20 |)..     |   -936 |
|00005060| 20 48 4f 4d 45 20 43 4c | 45 41 52 20 53 43 52 45 | HOME CL|EAR SCRE|
|00005070| 45 4e 0d 0a 20 20 20 20 | 20 20 20 20 2d 39 35 38 |EN..    |    -958|
|00005080| 20 20 43 4c 45 41 52 20 | 53 43 52 45 45 4e 20 46 |  CLEAR |SCREEN F|
|00005090| 52 4f 4d 20 43 55 52 53 | 4f 52 0d 0a 20 20 20 20 |ROM CURS|OR..    |
|000050a0| 20 20 20 20 2d 31 30 35 | 32 20 49 4d 4d 45 44 49 |    -105|2 IMMEDI|
|000050b0| 41 54 45 20 42 45 4c 4c | 0d 0a 20 20 20 20 20 20 |ATE BELL|..      |
|000050c0| 20 20 2d 31 30 38 37 20 | 43 41 4c 43 55 4c 41 54 |  -1087 |CALCULAT|
|000050d0| 45 20 54 45 58 54 20 42 | 41 53 45 20 41 44 44 52 |E TEXT B|ASE ADDR|
|000050e0| 0d 0a 20 20 20 20 20 20 | 20 20 2d 31 31 34 38 20 |..      |  -1148 |
|000050f0| 44 49 56 49 44 45 20 52 | 4f 55 54 49 4e 45 0d 0a |DIVIDE R|OUTINE..|
|00005100| 20 20 20 20 20 20 20 20 | 2d 31 31 38 31 20 4d 55 |        |-1181 MU|
|00005110| 4c 54 49 50 4c 59 20 52 | 4f 55 54 49 4e 45 0d 0a |LTIPLY R|OUTINE..|
|00005120| 20 20 20 20 20 20 20 20 | 2d 31 32 30 35 20 4e 4f |        |-1205 NO|
|00005130| 52 4d 41 4c 20 57 49 4e | 44 4f 57 0d 0a 20 20 20 |RMAL WIN|DOW..   |
|00005140| 20 20 20 20 20 2d 31 32 | 31 36 20 47 52 41 50 48 |     -12|16 GRAPH|
|00005150| 49 43 53 20 53 43 52 45 | 45 4e 0d 0a 20 20 20 20 |ICS SCRE|EN..    |
|00005160| 20 20 20 20 2d 31 32 32 | 33 20 54 45 58 54 20 53 |    -122|3 TEXT S|
|00005170| 43 52 45 45 4e 0d 0a 20 | 20 20 20 20 20 20 20 2d |CREEN.. |       -|
|00005180| 31 32 33 33 20 53 43 52 | 45 45 4e 20 49 4e 49 54 |1233 SCR|EEN INIT|
|00005190| 49 41 4c 49 5a 45 2c 52 | 45 53 45 54 20 54 45 58 |IALIZE,R|ESET TEX|
|000051a0| 54 20 4d 4f 44 45 0d 0a | 20 20 20 20 20 20 20 20 |T MODE..|        |
|000051b0| 2d 31 32 35 30 20 52 45 | 41 44 20 50 41 44 44 4c |-1250 RE|AD PADDL|
|000051c0| 45 20 43 4f 4e 54 52 4f | 4c 53 0d 0a 20 20 20 20 |E CONTRO|LS..    |
|000051d0| 20 20 20 20 2d 31 33 32 | 31 20 44 49 53 50 4c 41 |    -132|1 DISPLA|
|000051e0| 59 20 52 45 47 49 53 54 | 45 52 53 0d 0a 20 20 20 |Y REGIST|ERS..   |
|000051f0| 20 20 20 20 20 2d 31 39 | 33 35 20 52 45 41 44 20 |     -19|35 READ |
|00005200| 50 4f 49 4e 54 20 4c 4f | 2d 52 45 53 20 53 43 52 |POINT LO|-RES SCR|
|00005210| 4e 20 31 0d 0a 20 20 20 | 20 20 20 20 20 2d 31 39 |N 1..   |     -19|
|00005220| 34 38 20 41 44 4a 55 53 | 54 20 43 4f 4c 4f 52 20 |48 ADJUS|T COLOR |
|00005230| 42 59 54 45 20 46 4f 52 | 20 42 4f 54 48 20 48 41 |BYTE FOR| BOTH HA|
|00005240| 4c 56 45 53 20 45 51 55 | 41 4c 0d 0a 20 20 20 20 |LVES EQU|AL..    |
|00005250| 20 20 20 20 2d 31 39 35 | 33 20 43 48 41 4e 47 45 |    -195|3 CHANGE|
|00005260| 20 43 4f 4c 4f 52 2b 33 | 0d 0a 20 20 20 20 20 20 | COLOR+3|..      |
|00005270| 20 20 2d 31 39 37 37 20 | 43 41 4c 43 20 47 52 41 |  -1977 |CALC GRA|
|00005280| 50 48 49 43 53 20 42 41 | 53 45 20 41 44 44 52 0d |PHICS BA|SE ADDR.|
|00005290| 0a 20 20 20 20 20 20 20 | 20 2d 31 39 39 38 20 43 |.       | -1998 C|
|000052a0| 4c 45 41 52 20 47 52 41 | 50 48 49 43 53 20 53 43 |LEAR GRA|PHICS SC|
|000052b0| 52 45 45 4e 0d 0a 20 20 | 20 20 20 20 20 20 2d 32 |REEN..  |      -2|
|000052c0| 30 30 38 20 44 52 41 57 | 20 56 4c 49 4e 0d 0a 20 |008 DRAW| VLIN.. |
|000052d0| 20 20 20 20 20 20 20 2d | 32 30 32 33 20 48 4c 49 |       -|2023 HLI|
|000052e0| 4e 0d 0a 20 20 20 20 20 | 20 20 20 20 32 30 34 38 |N..     |    2048|
|000052f0| 20 50 4c 4f 54 0d 0a 20 | 20 20 20 20 20 20 20 2d | PLOT.. |       -|
|00005300| 32 34 35 38 20 45 4e 54 | 45 52 20 4d 49 4e 49 20 |2458 ENT|ER MINI |
|00005310| 41 53 4d 0d 0a 20 20 20 | 20 20 20 20 20 2d 33 37 |ASM..   |     -37|
|00005320| 37 36 20 53 41 56 45 20 | 49 4e 54 20 50 52 4f 47 |76 SAVE |INT PROG|
|00005330| 20 46 52 4f 4d 20 54 41 | 50 45 0d 0a 20 20 20 20 | FROM TA|PE..    |
|00005340| 20 20 20 20 2d 33 39 37 | 33 20 4c 4f 41 44 20 49 |    -397|3 LOAD I|
|00005350| 4e 54 20 50 52 4f 47 20 | 46 52 4f 4d 20 54 41 50 |NT PROG |FROM TAP|
|00005360| 45 0d 0a 20 20 20 20 20 | 20 20 20 2d 36 30 39 30 |E..     |   -6090|
|00005370| 20 52 55 4e 0d 0a 20 20 | 20 20 20 20 20 20 2d 38 | RUN..  |      -8|
|00005380| 31 39 32 20 52 45 53 45 | 54 20 49 4e 54 20 42 41 |192 RESE|T INT BA|
|00005390| 53 49 43 20 4b 49 4c 4c | 20 57 4f 52 4b 20 53 50 |SIC KILL| WORK SP|
|000053a0| 41 43 45 0d 0a 20 20 20 | 20 20 20 20 20 0d 0a 20 |ACE..   |     .. |
|000053b0| 20 20 20 20 20 20 20 0d | 0a 20 20 20 20 20 20 20 |       .|.       |
|000053c0| 20 20 20 20 20 20 20 20 | 20 20 20 4d 4f 52 45 20 |        |   MORE |
|000053d0| 48 41 4e 44 59 20 43 41 | 4c 4c 53 0d 0a 20 20 20 |HANDY CA|LLS..   |
|000053e0| 20 20 20 20 20 0d 0a 20 | 20 20 20 20 20 20 20 0d |     .. |       .|
|000053f0| 0a 20 20 20 20 20 20 20 | 20 43 41 4c 4c 20 2d 31 |.       | CALL -1|
|00005400| 30 33 36 20 41 44 56 41 | 4e 43 45 20 43 55 52 53 |036 ADVA|NCE CURS|
|00005410| 4f 52 0d 0a 20 20 20 20 | 20 20 20 20 43 41 4c 4c |OR..    |    CALL|
|00005420| 20 2d 31 30 32 37 20 4f | 55 54 50 55 54 20 41 20 | -1027 O|UTPUT A |
|00005430| 52 45 47 20 41 53 20 41 | 53 43 49 49 20 4f 4e 20 |REG AS A|SCII ON |
|00005440| 54 45 58 54 20 53 43 52 | 45 45 4e 20 31 0d 0a 20 |TEXT SCR|EEN 1.. |
|00005450| 0d 0a 20 0d 0a 20 0d 0a | 20 0d 0a 20 0d 0a 20 0d |.. .. ..| .. .. .|
|00005460| 0a 20 0d 0a 20 20 20 20 | 20 20 20 20 43 41 4c 4c |. ..    |    CALL|
|00005470| 20 2d 31 30 30 38 20 42 | 41 43 4b 53 50 41 43 45 | -1008 B|ACKSPACE|
|00005480| 20 43 55 52 53 4f 52 0d | 0a 20 20 20 20 20 20 20 | CURSOR.|.       |
|00005490| 20 43 41 4c 4c 20 2d 39 | 39 38 20 4d 4f 56 45 20 | CALL -9|98 MOVE |
|000054a0| 43 55 52 53 4f 52 20 55 | 50 0d 0a 20 20 20 20 20 |CURSOR U|P..     |
|000054b0| 20 20 20 43 41 4c 4c 20 | 2d 39 39 30 20 50 45 52 |   CALL |-990 PER|
|000054c0| 46 4f 52 4d 20 56 45 52 | 54 49 43 41 4c 20 54 41 |FORM VER|TICAL TA|
|000054d0| 42 0d 0a 20 20 20 20 20 | 20 20 20 43 41 4c 4c 20 |B..     |   CALL |
|000054e0| 2d 39 38 30 20 45 53 43 | 41 50 45 20 46 55 4e 43 |-980 ESC|APE FUNC|
|000054f0| 54 49 4f 4e 53 0d 0a 20 | 20 20 20 20 20 20 20 43 |TIONS.. |       C|
|00005500| 41 4c 4c 20 2d 39 32 36 | 20 43 41 52 52 49 41 47 |ALL -926| CARRIAG|
|00005510| 45 20 52 45 54 55 52 4e | 0d 0a 20 20 20 20 20 20 |E RETURN|..      |
|00005520| 20 20 43 41 4c 4c 20 2d | 38 35 36 20 57 41 49 54 |  CALL -|856 WAIT|
|00005530| 20 4c 4f 4f 50 0d 0a 20 | 20 20 20 20 20 20 20 43 | LOOP.. |       C|
|00005540| 41 4c 4c 20 2d 37 34 31 | 20 4d 4f 4e 49 54 4f 52 |ALL -741| MONITOR|
|00005550| 20 4b 45 59 49 4e 20 52 | 4f 55 54 49 4e 45 0d 0a | KEYIN R|OUTINE..|
|00005560| 20 20 20 20 20 20 20 20 | 43 41 4c 4c 20 2d 37 31 |        |CALL -71|
|00005570| 35 20 52 45 41 44 20 4b | 45 59 20 26 20 50 45 52 |5 READ K|EY & PER|
|00005580| 20 45 53 43 20 46 55 4e | 20 49 46 20 4e 45 43 45 | ESC FUN| IF NECE|
|00005590| 53 53 41 52 59 0d 0a 20 | 20 20 20 20 20 20 20 43 |SSARY.. |       C|
|000055a0| 41 4c 4c 20 2d 36 37 30 | 20 50 45 52 46 4f 52 4d |ALL -670| PERFORM|
|000055b0| 20 41 20 4c 49 4e 45 20 | 43 41 4e 43 45 4c 28 2f | A LINE |CANCEL(/|
|000055c0| 29 0d 0a 20 20 20 20 20 | 20 20 20 43 41 4c 4c 20 |)..     |   CALL |
|000055d0| 2d 36 36 35 20 50 45 52 | 46 4f 52 4d 20 4c 49 4e |-665 PER|FORM LIN|
|000055e0| 45 20 46 45 45 44 20 41 | 4e 44 20 57 41 49 54 20 |E FEED A|ND WAIT |
|000055f0| 46 4f 52 20 49 4e 50 55 | 54 0d 0a 20 20 20 20 20 |FOR INPU|T..     |
|00005600| 20 20 20 43 41 4c 4c 20 | 2d 36 35 37 20 47 45 54 |   CALL |-657 GET|
|00005610| 20 41 20 4c 49 4e 45 0d | 0a 20 20 20 20 20 20 20 | A LINE.|.       |
|00005620| 20 43 41 4c 4c 20 2d 35 | 35 30 20 50 52 49 4e 54 | CALL -5|50 PRINT|
|00005630| 20 41 20 42 59 54 45 20 | 41 53 20 32 20 48 45 58 | A BYTE |AS 2 HEX|
|00005640| 20 44 49 47 49 54 53 0d | 0a 20 20 20 20 20 20 20 | DIGITS.|.       |
|00005650| 20 43 41 4c 4c 20 2d 35 | 34 31 20 50 52 49 4e 54 | CALL -5|41 PRINT|
|00005660| 20 48 45 58 20 44 49 47 | 49 54 0d 0a 20 20 20 20 | HEX DIG|IT..    |
|00005670| 20 20 20 20 43 41 4c 4c | 20 2d 35 33 31 20 4f 55 |    CALL| -531 OU|
|00005680| 54 50 55 54 20 43 48 41 | 52 2e 20 56 49 41 20 55 |TPUT CHA|R. VIA U|
|00005690| 53 45 52 20 4f 55 54 50 | 55 54 0d 0a 20 20 20 20 |SER OUTP|UT..    |
|000056a0| 20 20 20 20 43 41 4c 4c | 20 2d 35 32 38 20 4d 4f |    CALL| -528 MO|
|000056b0| 4e 49 54 4f 52 20 43 48 | 41 52 2e 20 4f 55 54 50 |NITOR CH|AR. OUTP|
|000056c0| 55 54 0d 0a 20 20 20 20 | 20 20 20 20 43 41 4c 4c |UT..    |    CALL|
|000056d0| 20 2d 34 36 38 20 50 45 | 52 46 4f 52 4d 20 4d 45 | -468 PE|RFORM ME|
|000056e0| 4d 4f 52 59 20 4d 4f 56 | 45 0d 0a 20 20 20 20 20 |MORY MOV|E..     |
|000056f0| 20 20 20 43 41 4c 4c 20 | 2d 34 35 38 20 50 45 52 |   CALL |-458 PER|
|00005700| 46 4f 52 4d 20 4d 45 4d | 4f 52 59 20 56 45 52 49 |FORM MEM|ORY VERI|
|00005710| 46 59 0d 0a 20 20 20 20 | 20 20 20 20 0d 0a 20 20 |FY..    |    ..  |
|00005720| 20 20 20 20 20 20 0d 0a | 20 20 20 20 20 20 20 20 |      ..|        |
|00005730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 50 4f |        |      PO|
|00005740| 4b 45 53 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |KES..   |        |
|00005750| 50 4f 4b 45 20 20 20 20 | 20 20 20 20 20 20 20 20 |POKE    |        |
|00005760| 20 45 58 50 4c 41 4e 41 | 54 49 4f 4e 0d 0a 20 20 | EXPLANA|TION..  |
|00005770| 20 20 20 20 20 20 20 20 | 44 45 43 20 41 44 44 20 |        |DEC ADD |
|00005780| 20 20 20 20 20 20 20 20 | 20 20 56 41 4c 55 45 20 |        |  VALUE |
|00005790| 4c 49 4d 49 54 53 0d 0a | 20 20 20 20 20 20 20 20 |LIMITS..|        |
|000057a0| 0d 0a 20 20 20 20 20 20 | 20 20 0d 0a 20 20 20 20 |..      |  ..    |
|000057b0| 20 20 20 20 50 4f 4b 45 | 20 33 32 2c 58 20 20 20 |    POKE| 32,X   |
|000057c0| 20 20 57 49 4e 44 4f 57 | 20 4c 45 46 54 20 20 30 |  WINDOW| LEFT  0|
|000057d0| 2d 33 39 0d 0a 20 20 20 | 20 20 20 20 20 50 4f 4b |-39..   |     POK|
|000057e0| 45 20 33 33 2c 58 20 20 | 20 20 20 57 49 4e 44 4f |E 33,X  |   WINDO|
|000057f0| 57 20 57 49 44 54 48 20 | 30 2d 34 30 0d 0a 20 20 |W WIDTH |0-40..  |
|00005800| 20 20 20 20 20 20 50 4f | 4b 45 20 33 34 2c 58 20 |      PO|KE 34,X |
|00005810| 20 20 20 20 57 49 4e 44 | 4f 57 20 54 4f 50 20 20 |    WIND|OW TOP  |
|00005820| 20 30 2d 32 34 0d 0a 20 | 20 20 20 20 20 20 20 50 | 0-24.. |       P|
|00005830| 4f 4b 45 20 33 35 2c 58 | 20 20 20 20 20 57 49 4e |OKE 35,X|     WIN|
|00005840| 44 4f 57 20 42 4f 54 54 | 4f 4d 20 30 2d 32 34 0d |DOW BOTT|OM 0-24.|
|00005850| 0a 20 20 20 20 20 20 20 | 20 50 4f 4b 45 20 33 36 |.       | POKE 36|
|00005860| 2c 58 20 20 20 20 20 43 | 55 52 53 4f 52 20 48 4f |,X     C|URSOR HO|
|00005870| 52 49 5a 4f 4e 54 41 4c | 0d 0a 20 20 20 20 20 20 |RIZONTAL|..      |
|00005880| 20 20 50 4f 4b 45 20 33 | 37 2c 58 20 20 20 20 20 |  POKE 3|7,X     |
|00005890| 43 55 52 53 4f 52 20 56 | 45 52 54 49 43 41 4c 0d |CURSOR V|ERTICAL.|
|000058a0| 0a 20 20 20 20 20 20 20 | 20 50 4f 4b 45 20 33 38 |.       | POKE 38|
|000058b0| 2c 58 20 20 20 20 20 47 | 42 41 53 4c 20 47 52 41 |,X     G|BASL GRA|
|000058c0| 50 48 49 43 53 20 42 41 | 53 45 41 44 44 52 45 53 |PHICS BA|SEADDRES|
|000058d0| 53 0d 0a 20 20 20 20 20 | 20 20 20 50 4f 4b 45 20 |S..     |   POKE |
|000058e0| 33 39 2c 58 20 20 20 20 | 20 47 42 41 53 48 0d 0a |39,X    | GBASH..|
|000058f0| 20 20 20 20 20 20 20 20 | 50 4f 4b 45 20 34 30 2c |        |POKE 40,|
|00005900| 58 20 20 20 20 20 42 41 | 53 4c 20 54 45 58 54 20 |X     BA|SL TEXT |
|00005910| 53 43 52 45 45 4e 20 42 | 41 53 45 20 41 44 44 52 |SCREEN B|ASE ADDR|
|00005920| 0d 0a 20 20 20 20 20 20 | 20 20 50 4f 4b 45 20 34 |..      |  POKE 4|
|00005930| 31 2c 58 20 20 20 20 20 | 42 41 53 48 0d 0a 20 20 |1,X     |BASH..  |
|00005940| 20 20 20 20 20 20 50 4f | 4b 45 20 34 32 2c 58 20 |      PO|KE 42,X |
|00005950| 20 20 20 20 42 41 53 32 | 4c 20 54 45 4d 50 2e 42 |    BAS2|L TEMP.B|
|00005960| 41 53 45 20 41 44 44 52 | 45 53 53 0d 0a 20 20 20 |ASE ADDR|ESS..   |
|00005970| 20 20 20 20 20 50 4f 4b | 45 20 34 33 2c 58 20 20 |     POK|E 43,X  |
|00005980| 20 20 20 42 41 53 32 48 | 0d 0a 20 20 20 20 20 20 |   BAS2H|..      |
|00005990| 20 20 50 4f 4b 45 20 34 | 38 2c 58 20 20 20 20 20 |  POKE 4|8,X     |
|000059a0| 43 4f 4c 4f 52 20 28 30 | 2d 31 35 29 0d 0a 20 20 |COLOR (0|-15)..  |
|000059b0| 20 20 20 20 20 20 50 4f | 4b 45 20 34 39 2c 58 20 |      PO|KE 49,X |
|000059c0| 20 20 20 20 4d 4f 44 45 | 0d 0a 20 20 20 20 20 20 |    MODE|..      |
|000059d0| 20 20 50 4f 4b 45 20 35 | 30 2c 58 20 20 20 20 20 |  POKE 5|0,X     |
|000059e0| 43 4f 55 54 20 54 45 58 | 54 20 4d 4f 44 45 53 0d |COUT TEX|T MODES.|
|000059f0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00005a00| 20 20 20 20 20 20 20 20 | 20 20 32 35 35 2d 4e 4f |        |  255-NO|
|00005a10| 52 4d 41 4c 20 4d 4f 44 | 45 0d 0a 20 20 20 20 20 |RMAL MOD|E..     |
|00005a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005a30| 20 20 20 20 36 33 2d 49 | 4e 56 45 52 53 45 20 4d |    63-I|NVERSE M|
|00005a40| 4f 44 45 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ODE..   |        |
|00005a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 31 32 |        |      12|
|00005a60| 37 2d 46 4c 41 53 48 49 | 4e 47 20 4d 4f 44 45 0d |7-FLASHI|NG MODE.|
|00005a70| 0a 20 20 20 20 20 20 20 | 20 0d 0a 20 20 20 20 20 |.       | ..     |
|00005a80| 20 20 20 50 4f 4b 45 20 | 35 31 2c 58 20 20 20 20 |   POKE |51,X    |
|00005a90| 20 50 52 4f 4d 50 54 20 | 43 48 41 52 41 43 54 45 | PROMPT |CHARACTE|
|00005aa0| 52 0d 0a 20 20 20 20 20 | 20 20 20 50 4f 4b 45 20 |R..     |   POKE |
|00005ab0| 35 34 2c 4c 20 20 20 20 | 20 43 53 57 4c 0d 0a 20 |54,L    | CSWL.. |
|00005ac0| 20 20 20 20 20 20 20 50 | 4f 4b 45 20 35 35 2c 48 |       P|OKE 55,H|
|00005ad0| 20 20 20 20 20 43 53 57 | 48 3a 43 48 41 52 41 43 |     CSW|H:CHARAC|
|00005ae0| 54 45 52 20 4f 55 54 50 | 55 54 0d 0a 20 20 20 20 |TER OUTP|UT..    |
|00005af0| 20 20 20 20 50 4f 4b 45 | 20 35 36 2c 4c 20 20 20 |    POKE| 56,L   |
|00005b00| 20 20 4b 53 57 4c 0d 0a | 20 20 20 20 20 20 20 20 |  KSWL..|        |
|00005b10| 50 4f 4b 45 20 35 37 2c | 48 20 20 20 20 20 4b 53 |POKE 57,|H     KS|
|00005b20| 57 48 3a 43 48 41 52 41 | 43 54 45 52 20 49 4e 50 |WH:CHARA|CTER INP|
|00005b30| 55 54 0d 0a 20 20 20 20 | 20 20 20 20 0d 0a 20 20 |UT..    |    ..  |
|00005b40| 20 20 20 20 20 20 54 48 | 45 20 50 4f 4b 45 53 20 |      TH|E POKES |
|00005b50| 42 45 4c 4f 57 20 4d 41 | 59 20 42 45 20 55 53 45 |BELOW MA|Y BE USE|
|00005b60| 44 20 42 45 46 4f 52 45 | 20 41 20 43 41 4c 4c 20 |D BEFORE| A CALL |
|00005b70| 2d 33 32 37 20 54 4f 20 | 43 41 4c 4c 20 41 0d 0a |-327 TO |CALL A..|
|00005b80| 20 20 20 20 20 20 20 20 | 4d 41 43 48 49 4e 45 20 |        |MACHINE |
|00005b90| 4c 41 4e 47 55 41 47 45 | 20 50 52 4f 47 52 41 4d |LANGUAGE| PROGRAM|
|00005ba0| 20 57 49 54 48 20 50 41 | 52 41 4d 45 54 45 52 53 | WITH PA|RAMETERS|
|00005bb0| 0d 0a 20 20 20 20 20 20 | 20 20 0d 0a 20 20 20 20 |..      |  ..    |
|00005bc0| 20 20 20 20 50 4f 4b 45 | 20 35 38 2c 4c 20 20 20 |    POKE| 58,L   |
|00005bd0| 20 20 50 43 4c 0d 0a 20 | 20 20 20 20 20 20 20 50 |  PCL.. |       P|
|00005be0| 4f 4b 45 20 35 39 2c 48 | 20 20 20 20 20 50 43 48 |OKE 59,H|     PCH|
|00005bf0| 0d 0a 20 20 20 20 20 20 | 20 20 50 4f 4b 45 20 36 |..      |  POKE 6|
|00005c00| 39 2c 58 20 20 20 20 20 | 41 2d 52 45 47 49 53 54 |9,X     |A-REGIST|
|00005c10| 45 52 0d 0a 20 20 20 20 | 20 20 20 20 50 4f 4b 45 |ER..    |    POKE|
|00005c20| 20 37 30 2c 58 20 20 20 | 20 20 58 2d 52 45 47 49 | 70,X   |  X-REGI|
|00005c30| 53 54 45 52 0d 0a 20 20 | 20 20 20 20 20 20 50 4f |STER..  |      PO|
|00005c40| 4b 45 20 37 31 2c 58 20 | 20 20 20 20 59 2d 52 45 |KE 71,X |    Y-RE|
|00005c50| 47 49 53 54 45 52 0d 0a | 20 20 20 20 20 20 20 20 |GISTER..|        |
|00005c60| 50 4f 4b 45 20 37 32 2c | 58 20 20 20 20 20 53 54 |POKE 72,|X     ST|
|00005c70| 41 54 55 53 20 52 45 47 | 49 53 54 45 52 0d 0a 20 |ATUS REG|ISTER.. |
|00005c80| 20 20 20 20 20 20 20 50 | 4f 4b 45 20 37 33 2c 58 |       P|OKE 73,X|
|00005c90| 20 20 20 20 20 53 54 41 | 43 4b 20 50 4f 49 4e 54 |     STA|CK POINT|
|00005ca0| 45 52 0d 0a 20 0d 0a 20 | 0d 0a 20 0d 0a 20 0d 0a |ER.. .. |.. .. ..|
|00005cb0| 20 0d 0a 20 0d 0a 20 0d | 0a 20 20 20 20 20 20 20 | .. .. .|.       |
|00005cc0| 20 0d 0a 20 20 20 20 20 | 20 20 20 50 4f 4b 45 53 | ..     |   POKES|
|00005cd0| 20 42 45 4c 4f 57 20 28 | 36 30 2d 36 37 20 43 41 | BELOW (|60-67 CA|
|00005ce0| 4e 20 42 45 20 55 53 45 | 44 20 49 4e 20 43 4f 4e |N BE USE|D IN CON|
|00005cf0| 4a 55 4e 43 54 49 4f 4e | 20 57 49 54 48 20 56 41 |JUNCTION| WITH VA|
|00005d00| 52 49 4f 55 53 0d 0a 20 | 20 20 20 20 20 20 20 43 |RIOUS.. |       C|
|00005d10| 41 4c 4c 53 20 54 4f 20 | 50 45 52 46 4f 52 4d 20 |ALLS TO |PERFORM |
|00005d20| 4d 41 4e 59 20 53 59 53 | 54 45 4d 20 4d 4f 4e 49 |MANY SYS|TEM MONI|
|00005d30| 54 4f 52 20 43 4f 4d 4d | 41 4e 44 53 20 46 52 4f |TOR COMM|ANDS FRO|
|00005d40| 4d 20 42 41 53 49 43 0d | 0a 20 20 20 20 20 20 20 |M BASIC.|.       |
|00005d50| 20 28 53 45 45 20 43 41 | 4c 4c 20 4c 49 53 54 29 | (SEE CA|LL LIST)|
|00005d60| 0d 0a 20 20 20 20 20 20 | 20 20 0d 0a 20 20 20 20 |..      |  ..    |
|00005d70| 20 20 20 20 20 20 20 50 | 4f 4b 45 20 36 31 2c 48 |       P|OKE 61,H|
|00005d80| 20 20 20 20 41 31 48 0d | 0a 20 20 20 20 20 20 20 |    A1H.|.       |
|00005d90| 20 20 20 20 50 4f 4b 45 | 20 36 32 2c 4c 20 20 20 |    POKE| 62,L   |
|00005da0| 20 41 32 4c 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | A2L..  |        |
|00005db0| 20 50 4f 4b 45 20 36 33 | 2c 48 20 20 20 20 41 32 | POKE 63|,H    A2|
|00005dc0| 48 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 50 4f |H..     |      PO|
|00005dd0| 4b 45 20 36 36 2c 4c 20 | 20 20 20 41 34 4c 0d 0a |KE 66,L |   A4L..|
|00005de0| 20 20 20 20 20 20 20 20 | 20 20 20 50 4f 4b 45 20 |        |   POKE |
|00005df0| 36 37 2c 48 20 20 20 20 | 41 34 48 0d 0a 20 20 20 |67,H    |A4H..   |
|00005e00| 20 20 20 20 20 0d 0a 20 | 20 20 20 20 20 20 20 4d |     .. |       M|
|00005e10| 4f 53 54 20 44 4f 4b 20 | 49 53 20 46 4f 52 20 49 |OST DOK |IS FOR I|
|00005e20| 4e 54 45 47 45 52 20 42 | 55 54 20 53 4f 4d 45 20 |NTEGER B|UT SOME |
|00005e30| 4d 41 59 20 42 45 20 55 | 53 45 44 20 49 4e 20 41 |MAY BE U|SED IN A|
|00005e40| 50 50 4c 45 53 4f 46 54 | 2e 0d 0a 20 20 20 20 20 |PPLESOFT|...     |
|00005e50| 20 20 20 53 4f 4d 45 20 | 43 41 4c 4c 53 20 43 41 |   SOME |CALLS CA|
|00005e60| 4e 4e 4f 54 20 42 45 20 | 45 58 45 43 55 54 45 44 |NNOT BE |EXECUTED|
|00005e70| 20 49 4e 20 54 48 45 20 | 4d 49 44 44 4c 45 20 4f | IN THE |MIDDLE O|
|00005e80| 46 20 41 20 42 41 53 49 | 43 0d 0a 20 20 20 20 20 |F A BASI|C..     |
|00005e90| 20 20 20 50 52 4f 47 52 | 41 4d 20 4c 49 4e 45 2c |   PROGR|AM LINE,|
|00005ea0| 20 42 55 54 20 4d 55 53 | 54 20 42 45 20 41 54 20 | BUT MUS|T BE AT |
|00005eb0| 54 48 45 20 45 4e 44 20 | 4f 46 20 54 48 45 20 53 |THE END |OF THE S|
|00005ec0| 54 41 54 45 4d 45 4e 54 | 2e 0d 0a 20 20 20 20 20 |TATEMENT|...     |
|00005ed0| 20 20 20 0d 0a 20 20 20 | 20 20 20 20 20 0d 0a 20 |   ..   |     .. |
|00005ee0| 20 20 20 20 20 20 20 54 | 4f 20 47 45 54 20 49 4e |       T|O GET IN|
|00005ef0| 54 4f 20 4d 4f 4e 49 54 | 4f 52 20 57 2f 42 45 4c |TO MONIT|OR W/BEL|
|00005f00| 4c 0d 0a 20 20 20 20 20 | 20 20 20 20 20 43 41 4c |L..     |     CAL|
|00005f10| 4c 20 2d 31 35 35 0d 0a | 20 20 20 20 20 20 20 20 |L -155..|        |
|00005f20| 49 4e 56 45 52 53 45 0d | 0a 20 20 20 20 20 20 20 |INVERSE.|.       |
|00005f30| 20 20 20 50 4f 4b 45 20 | 35 30 2c 36 33 20 4f 52 |   POKE |50,63 OR|
|00005f40| 20 43 41 4c 4c 20 2d 33 | 38 34 0d 0a 20 20 20 20 | CALL -3|84..    |
|00005f50| 20 20 20 20 4e 4f 52 4d | 41 4c 0d 0a 20 20 20 20 |    NORM|AL..    |
|00005f60| 20 20 20 20 20 20 50 4f | 4b 45 20 35 30 2c 32 35 |      PO|KE 50,25|
|00005f70| 35 20 4f 52 20 43 41 4c | 4c 20 2d 33 38 30 0d 0a |5 OR CAL|L -380..|
|00005f80| 20 20 20 20 20 20 20 20 | 0d 0a 20 20 20 20 20 20 |        |..      |
|00005f90| 20 20 44 49 53 4b 20 43 | 41 54 41 4c 4f 47 2c 20 |  DISK C|ATALOG, |
|00005fa0| 44 4f 53 20 33 2e 32 2e | 31 2c 20 34 38 4b 0d 0a |DOS 3.2.|1, 48K..|
|00005fb0| 20 20 20 20 20 20 20 20 | 20 20 41 44 39 38 0d 0a |        |  AD98..|
|00005fc0| 20 20 20 20 20 20 20 20 | 0d 0a 20 20 20 20 20 20 |        |..      |
|00005fd0| 20 20 4f 54 48 45 52 20 | 4c 4f 43 41 54 49 4f 4e |  OTHER |LOCATION|
|00005fe0| 53 20 46 4f 52 20 34 38 | 4b 20 44 49 53 4b 2c 20 |S FOR 48|K DISK, |
|00005ff0| 44 4f 53 20 33 2e 32 2e | 31 20 28 4d 4f 53 54 20 |DOS 3.2.|1 (MOST |
|00006000| 57 49 4c 4c 20 57 4f 52 | 4b 20 57 2f 33 2e 33 29 |WILL WOR|K W/3.3)|
|00006010| 0d 0a 20 20 20 20 20 20 | 20 20 0d 0a 20 20 20 20 |..      |  ..    |
|00006020| 20 20 20 20 43 4f 4e 54 | 52 4f 4c 2d 44 20 20 41 |    CONT|ROL-D  A|
|00006030| 41 42 32 0d 0a 20 20 20 | 20 20 20 20 20 0d 0a 20 |AB2..   |     .. |
|00006040| 20 20 20 20 20 20 20 4e | 41 4d 45 20 41 50 50 4c |       N|AME APPL|
|00006050| 45 53 4f 46 54 20 20 20 | 41 41 42 38 0d 0a 20 20 |ESOFT   |AAB8..  |
|00006060| 20 20 20 20 20 20 0d 0a | 20 20 20 20 20 20 20 20 |      ..|        |
|00006070| 57 4f 52 44 53 20 22 44 | 49 53 4b 20 56 4f 4c 55 |WORDS "D|ISK VOLU|
|00006080| 4d 45 22 20 20 20 42 33 | 41 44 2d 42 41 20 20 28 |ME"   B3|AD-BA  (|
|00006090| 49 4e 20 52 45 56 45 52 | 53 45 20 4f 52 44 45 52 |IN REVER|SE ORDER|
|000060a0| 29 0d 0a 20 20 20 20 20 | 20 20 20 0d 0a 20 20 20 |)..     |   ..   |
|000060b0| 20 20 20 20 20 52 45 45 | 4e 54 45 52 20 44 4f 53 |     REE|NTER DOS|
|000060c0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 39 44 |..      |      9D|
|000060d0| 42 46 20 4f 52 20 33 44 | 30 20 20 43 54 52 4c 2d |BF OR 3D|0  CTRL-|
|000060e0| 43 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 39 |C..     |       9|
|000060f0| 44 38 34 20 4f 52 20 33 | 44 33 20 20 43 54 52 4c |D84 OR 3|D3  CTRL|
|00006100| 2d 42 20 28 4e 45 57 29 | 0d 0a 20 20 20 20 20 20 |-B (NEW)|..      |
|00006110| 20 20 20 20 20 20 39 44 | 45 41 20 20 20 52 45 53 |      9D|EA   RES|
|00006120| 54 4f 52 45 20 33 44 30 | 2d 33 46 46 0d 0a 20 20 |TORE 3D0|-3FF..  |
|00006130| 20 20 20 20 20 20 0d 0a | 20 20 20 20 20 20 20 20 |      ..|        |
|00006140| 46 52 4f 4d 20 4e 4f 57 | 20 4f 4e 20 48 45 58 20 |FROM NOW| ON HEX |
|00006150| 57 49 4c 4c 20 48 41 56 | 45 20 24 20 49 4e 20 46 |WILL HAV|E $ IN F|
|00006160| 52 4f 4e 54 0d 0a 20 20 | 20 20 20 20 20 20 0d 0a |RONT..  |      ..|
|00006170| 20 20 20 20 20 20 20 20 | 46 4f 52 20 52 4f 4d 20 |        |FOR ROM |
|00006180| 41 50 50 4c 45 53 4f 46 | 54 2f 4c 41 4e 47 20 53 |APPLESOF|T/LANG S|
|00006190| 59 53 54 45 4d 20 41 50 | 50 4c 45 53 4f 46 54 0d |YSTEM AP|PLESOFT.|
|000061a0| 0a 20 20 20 20 20 20 20 | 20 0d 0a 20 20 20 20 20 |.       | ..     |
|000061b0| 20 20 20 48 47 52 20 20 | 24 46 33 45 32 20 20 20 |   HGR  |$F3E2   |
|000061c0| 20 48 47 52 32 20 24 46 | 33 44 38 0d 0a 20 20 20 | HGR2 $F|3D8..   |
|000061d0| 20 20 20 20 20 0d 0a 20 | 20 20 20 20 20 20 20 42 |     .. |       B|
|000061e0| 4b 47 4e 44 20 20 43 4c | 52 20 48 49 52 45 53 20 |KGND  CL|R HIRES |
|000061f0| 54 4f 20 4c 41 53 54 20 | 43 4f 4c 4f 52 20 50 4c |TO LAST |COLOR PL|
|00006200| 4f 54 54 45 44 20 20 20 | 24 46 33 46 36 0d 0a 20 |OTTED   |$F3F6.. |
|00006210| 20 20 20 20 20 20 20 0d | 0a 20 20 20 20 20 20 20 |       .|.       |
|00006220| 20 52 55 4e 20 24 44 35 | 36 36 20 20 35 34 36 33 | RUN $D5|66  5463|
|00006230| 30 0d 0a 20 20 20 20 20 | 20 20 20 0d 0a 20 20 20 |0..     |   ..   |
|00006240| 20 20 20 20 20 43 4f 4e | 54 20 24 44 38 39 38 20 |     CON|T $D898 |
|00006250| 35 35 34 34 38 0d 0a 20 | 20 20 20 20 20 20 20 0d |55448.. |       .|
|00006260| 0a 20 20 20 20 20 20 20 | 20 49 53 43 4e 54 43 20 |.       | ISCNTC |
|00006270| 28 43 54 52 4c 2d 43 20 | 43 48 45 43 4b 29 20 24 |(CTRL-C |CHECK) $|
|00006280| 44 38 35 38 20 35 35 33 | 38 34 0d 0a 20 20 20 20 |D858 553|84..    |
|00006290| 20 20 20 20 20 20 20 45 | 58 45 43 55 54 45 53 20 |       E|XECUTES |
|000062a0| 42 52 45 41 4b 20 52 4f | 55 54 49 4e 45 20 49 46 |BREAK RO|UTINE IF|
|000062b0| 20 43 54 52 4c 2d 43 20 | 48 49 54 0d 0a 20 20 20 | CTRL-C |HIT..   |
|000062c0| 20 20 20 20 20 0d 0a 20 | 20 20 20 20 20 20 20 53 |     .. |       S|
|000062d0| 55 50 45 52 20 48 49 2d | 52 45 53 20 52 4f 55 54 |UPER HI-|RES ROUT|
|000062e0| 49 4e 45 20 42 59 20 42 | 4f 42 20 42 49 53 48 4f |INE BY B|OB BISHO|
|000062f0| 50 0d 0a 20 20 20 20 20 | 20 20 20 0d 0a 20 20 20 |P..     |   ..   |
|00006300| 20 20 20 20 20 20 20 45 | 4e 54 45 52 20 57 49 54 |       E|NTER WIT|
|00006310| 48 20 58 25 20 46 52 4f | 4d 20 30 20 54 4f 20 35 |H X% FRO|M 0 TO 5|
|00006320| 35 39 2c 20 59 25 20 46 | 52 4f 4d 20 30 20 54 4f |59, Y% F|ROM 0 TO|
|00006330| 20 31 39 31 0d 0a 20 20 | 20 20 20 20 20 20 0d 0a | 191..  |      ..|
|00006340| 20 20 20 20 20 20 20 20 | 20 20 20 20 31 30 30 30 |        |    1000|
|00006350| 20 58 58 25 3d 58 25 2f | 34 20 3a 20 4d 25 3d 58 | XX%=X%/|4 : M%=X|
|00006360| 25 2d 34 2a 58 58 25 0d | 0a 20 0d 0a 20 0d 0a 20 |%-4*XX%.|. .. .. |
|00006370| 0d 0a 20 0d 0a 20 0d 0a | 20 0d 0a 20 0d 0a 20 20 |.. .. ..| .. ..  |
|00006380| 20 20 20 20 20 20 20 20 | 20 20 31 30 34 30 20 49 |        |  1040 I|
|00006390| 46 20 4d 25 3d 30 20 54 | 48 45 4e 20 48 43 4f 4c |F M%=0 T|HEN HCOL|
|000063a0| 4f 52 3d 32 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |OR=2..  |        |
|000063b0| 20 20 31 30 35 30 20 49 | 46 20 4d 25 3d 31 20 54 |  1050 I|F M%=1 T|
|000063c0| 48 45 4e 20 48 43 4f 4c | 4f 52 3d 36 0d 0a 20 20 |HEN HCOL|OR=6..  |
|000063d0| 20 20 20 20 20 20 20 20 | 20 20 31 30 36 30 20 49 |        |  1060 I|
|000063e0| 46 20 4d 25 3d 32 20 54 | 48 45 4e 20 48 43 4f 4c |F M%=2 T|HEN HCOL|
|000063f0| 4f 52 3d 31 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |OR=1..  |        |
+--------+-------------------------+-------------------------+--------+--------+